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 Computerferien ‘86; Neue „Stars“ für 
vum den Commodore 64 


Star-Tool und Star-Datei 

sind 2 neue Programmangebote 
für den Commodore 64 aus 
dem Hause Sybex. 
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2 Beten RER * . Der Zeitschriftenmarkt im Bereich der Computerszene wird 
Jeder, der in den Ferien noch Termine freihatund gernedenUr- derzeit um ein neues Produkt erweitert. Nach dem viele ge- 
laub mit der Computerei verbinden möchte, hat dazu auch 1986 glaubt haben, daß das Thema „Computer“ bereits ausgereizt 
wieder Gelegenheit. Mehr über das Freizeit- und Kursangebot sei, hat der Tronic-Verlag ein neues Magazin auf dem Zeitschrif- 
finden Sie auf Seite 13 dieser Ausgabe! tenmarkt vorgestellt. Der Titel „aktueller Software-Markt“ sagt 
bereits einiges über den Inhalt dieses Heftes. Der Schwerpunkt 
wurde bei dieser Zeitschrift auf die Vorstellung der aktuellen 
Software gelegt, aber auch andere interessante Themen wer- 
den ausgiebig behandelt. Außerdem finden Sie einen 12-seiti- 
gen Kleinanzeigenmarkt, der vom Drucker bis zum Steckmodul 
alles bietet, was der Heimcomputer-Besitzer für seine Arbeit 
braucht. Schauen Sie doch einmal rein und überzeugen Sie 
sich von der Qualität dieser Zeitschrift. : 


Kleinanzeigen — Leser-+ Meckerecke - Werkstatt - Assembler-Kurs 
Report — Software-Service - Sofiware-Abo — Software-Reviews — Tips & 
Tricks Shuttle --Fast-Thrust — Data Text 64 - Starlight - SDI - u.u.m. 
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Programme 


ie sind mit einer Raumfähre zum ten Satelliten trifft, außerdem kann ein 
Mond geflogen, um dort mit einem Schuß auch über eine Bildschirmzeile hin- 


Raketenstuhl defekte Satellitev-ein- ü WW ME ausgehen. 
zusammeln. Nachdem ein Satellit durch (it A . BE Je mehr Atomsatelliten auftreten, desto 


bloßes Berühren eingesammelt wurde nn RR 
. .. | langsamer wird die Geschwindigkeit des 
muß man ihn zum Shuttle zurücktrans Raketenstuhis. Sie können jedoch durch 


portieren und dort am oberen Ende des z ; 
Greiarms einladen, was ebenfalls durch We ru) Grundversion ee aramsatliten Ihre Ge- 
bioßes Berühren geschieht. Doch VOR- m. HER 
SICHT! Bevor man einen neuen Satelliten m nulie 0 ch Fl akenso held 
ae» mu nück en Kaerden getroffenen Atomsatelliten. Pustet man 
da Mans onst eines seiner drei Astronan bei seiner „Ballerei“ allerdings einen de- 
fekten Satelliten vom Himmel, erfglgt ein 
' ‚tenleben verliert. Außer Kontrolle geratene Punkteabzug, auch dann, wenn ein Atom- 
. Atomsatelliten lassen die Arbeit zu einem satellit mit einem s olchen Satelliten zu- 
gefährlichen Unterfangen werden, denn sammenstößt 
man darf auf keinen Fall mit ihnen kolli- 
dieren, da sonst wieder ein Leben ver- 
wirkt ist! Natürlich besitzt man bei ei- 
ner so gefährlichen Arbeit eine Laser- 
waffe, mit der es möglich ist, auf die be- 
I drohlichen Satelliten zu feuern. Zerstö- 
1. ren kann man diese aber erst dann, wenn 
sie sich nicht mehr bewegen. Doch bitte 
- VORSICHT beim Gebrauch dieser gefährli- 
chen Waffe, damit man nichteeinen defek- 










; Die Steuerung erfolgt über die Tastatur. 
Das Programm besteht aus zwei Teilen, 
die einzeln eingegeben und gespei- 
chert werden müssen. Nach dem La- 
. den und Starten des ersten Teiles, wer- 
/ den die neuen Zeichen definiert, daran 

anschließend erfolgt eine Einleitung. Zum 
Abschluß erscheint dann die Aufforde- 
rung, den zweiten Teil zu laden. 



























































DB REM SRH er SA27E IRFSOFF SPACE} |" D&: 
1 REM * SHUTILE * 2915 85 FRINT"ISPAGESS |TSPACELTF I" 21363 
= REM ses <SiIERE FB PRINTFISPACESI or z2Q5 > 
Z REM * TEIL1 »*. SriBr 975 FRINT"{DOHNZ BEACKFZISPACEISTSPACE AV 
#4 REM # WARITTEN BY + AR SOHN HHITEILINKSCRFSOFF SPACEZ BLEACKYÄISP 
5 REM * RICHARD HEMB * 197 > ÄCE}=ISPACE RVSON HHITEFRECHTSIRFSOFFFN  <idon 
& REM * MISPELWEB X * <iR> 98 FRINT"IDOHN2 BLACKIKISPACEI=LSPACE RW 
7 REM * 3000 KOELN 71x SS SON WHITEIRAUFLRVSOFF SPACEF BLACKIMISPA 
8 REM * TELEFON: * SFiH CEI=NSPACE RVSON HHITEFYRUNTERTÄARFSOFFF" <a: 
9 REM = AEIL/TIEBSE * 112% IB FRINT" XDOHNZ SPACET BLACKILISPACEI=L 

12 REMRSHGARRR Z1EFS SPACE RVSON REBYFEUERCRVSOFF} x174> 
22 FOKES6879,154: FOKES&BOFB , IST PRINT" ICLE NEN PURPLE SPACESFTASTELSPA 15 

© o 10 3 K " z152> 

AR BLACK DOWN4 SPACES }BITTELSPACEFWARTEN 1925 115 FOKE199,0:WAITISB, 1 s1s 
23 GOSUB116R 299% 125 PRINT" CLEAR DOHN> BLACKYBITTEISPACE 
28 FORE=F9TO1S&:POKEZSBSI1 „ErNEXT 106 > 3LADENTSPACETSIETEPACEINUNISPACES BOHNID 
3a FRINT" ICLEAR}" :FOREIGRGSF 255 231> ENESRAGE ID TeILI" “2190> 
35 FORE=77941079739STEP22: FORK=ETOE+14: FO "9 NEW <415 
EEK, 238: POKEK+2972B,,4: NEXT=NEXT SDE4 5 1160 FORZ=@T0315: READAS POKETZ2Z24+Z „AzNEXT 215 
4A FRINTTAB{1SPI "IRVSON BLACKYSCRIGHT>HÄ 1165 RETURN <> 
RIGHTFULRIGHTFITIRIGHTS T{RIGHTILIRIGCHTSEL 1179 DATAZSS,255,255,255,255,255,255,255 133 
RVSOFF}+" <135% 1192 DATAO,0,8,8,8,8,0,8 Dr 20 
45 FRINTTAB{97)"SBLUES ISPACE} LFBSTDOHN2 1178 DATAB,2,8,255,8,0,0,0 “Ihr 

LEFTS RYEGONIBY{RUSBERS" EDEN, 1228 DATA129,66,60,60,66,60,126,129 “132% 
5a PRINTTAB(49)"{RVSON BLACKFRICHARDISPA 1220 DATAL2,12,55,31,7,14,8,B “98: 
CEIHEMBTRTSOEF <B> i240 DATA4B,48,196,248,172,112,16,1& ArAE: 
52 FORE=156T0E9STEF-1:FOKRESGBBI „ErNEXT <B> 1258 DATA119,69,67,117,21,21,117,0 “96> 
54 FORM=1T01&: READW,P: POKES6874,W 845 1268 DATA112,35,35,32,35,35, 32,0 “672 
54 FORT=1T0OPF:NEXT:FORESA976, 0: NEXT 763 1270 DATASZ,B,66,17,132,54, 72,18 <ıllr 
69 FORT=1TOSABB: NEXT pn 1232 DATAD,&9, 42,81,164, 19,81,8 Dekra 
Far 3 PFORE368659 „248: PRINT"ICLEAR DOHNI HHIT 1298 DATA25S, 180, 181, 161, 100, 183, 132,255 “201 > 
Er To: 1300 DATA?53,37,237, 237,33,173,49,258 <a: 
7B PRINT" CSPACES? , " LOSE 1312 DATA1F7,748,156,707,255,255,252,248 165% 
73 FRINT"ESPACESI |ESPACEITY |" “124> 1320 DATAB,A4,6,7,7,6,4,%9 2545 
BE FRINT"{SPACESY IKSPACE RVSÜNISTEUERUNG 1350. DATA128,192,224,248,248,252,254,255 <94: 
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1240 DATA2SS,755,126,129,127,2539,293,259 
1750 DATA12,12,24,48,75, 102 Bus ass 





1360 DATA@,SS 33,18, i2,12,12 

1372 DATAZ4 ‚60,36, 60,231 ,60,70,153 

1388 DATA2SS „231 „287 „. 207, 191,287 5227, 255 
1370 DATA=I7 ,215,217,218,2197,197,119,235 
1400 DATA255,255,232, 2 222,222 223,235 
1416 DATAT23,175, 111,251 ,247,247,119,255 
1428 DATAZ 55.255.295 ,259 ,255,127,21,239 
1438 DATA2SS , 233,255 ,235,252,249 ,231,207 
12428 DRTAR,2,2,2,2,8,0,0 

1445 DATAZS Se, 256,255 ,29543,292,255, 255 
1352 DATAB,G,2,2,82,0,0,8 

1468 DATA>S 5,255,252,221, 145,127 ,255,2593 
1470 DATAZSS, 295, 67,143,177,222,223,255 
1482 DATATEL 1,207 ,287,159,159,2@7,23 
1492 DATAZEI,231,249, 749,294 ,294,255,255 
1529 Darazss,zu4,241,247,111,31,739,247 
1510 Dara235,252,243,207 ,198,207 ,242,257 
{526 DATA2SS 63,207 „243, 125,242,287,67 
1524 DATA2SB,156, 136,732, 42,320,238,0 
1549 DATAZ38,170,178,174,172,170,234,0 
1550 DATAZ24,171, 131,192,121, 131,724,8 
1568 DAtA1S2,132,12 2,132, 122,132,228,8 
1574 DATA151,148,148,150,148,100,107,0 
1588 DATAL12,67,57, 112,19,16,112,0 

1572 DATAIB,1ı8,10,18,18,18,38, 

1602 DATAA, 12,26,4,4,4,4,0 

151@ DATA29,4,4,78,16,18,78,8 

1628 DATA2B,4,4,28,4,4,20,2 

15308 DATA16,16,20,20,30,4,4,2 

1649 DATAZS,16,10,28,4 a,28,02 

165 DATAZB,IS, 16.20,20,22,78, 2 

ih&d DATAZB,4, 2,14,4,4,4,0 

1678 DATAZB.20,2@,280,20,20, 28,2 

1682 DATAz9,20,7%0,28,4,4,28,2 

16970 DATAGU,686,187, 161,161, 187 ,66,60 
2aaaM DATA135,3082,1753,329,129,788,195,108 
5,195,10@ 

2@a1d DATF1FS,128,195,120,195, 1B00,221,20 
2,227 ,300,215,388 
2a22 DATA135,1000,135, 
2,135,20860 



































120,175,120,135,182 
Teil 2: 


REM 

st SU=76876:FA=20720:50=0:LI=3: AS=B: SA=2 
:PA=79796 

55 Uef: =: AA=1 1: M=1: D=S2: KB: YaBE 2=DE AS 
u: J=a 

a0 KT(1)=7979:KT (23=70855: KTIHI=7748: ETi4 
)=7962 

738 PORESU+ZT, 14: FOKESU-7 , 255: FOKESU+Z 

BA FRINT"{CLEAR HOHE MHITE DOHNIE REOHT3 
IXCDGHN LEFTSNI{RIGHFIWIDOHN LEFF4}TGORV 
55" 

92 PRINT"{YELLERF”" 

95 PRINT"C)G_ ""54466BZ6 OEG#E#FO GO ENIB_! 
SZEHFHEBBZG I ZCHEG OF LN1" 5 

188 PRINT"IB_'"661()6676%666Z76656% " 
GEHHGR EB "GHRHESGZEEBB_! "N" 

11@ FRINT’GSGBL\I8 156 "Ghr#sGe\";:FOKEBI 
85,29: FOKESFBFBS,7 

115 BOSUEFAB: GOSUEFZE 

120 FOKERA,AA 

122 IFSCIBTHENSC=B 

125 PRINT"CHOHE YELLOWI®+,{EPACES LEFT4 
"505 TAB "=, FLSPACEI LEFT33"S113 TABIL7 
JNMNISPACEIZ LEFT3}"3 AS 


DB REMRRRaKR 
i REPI* SHUTTLE * 
2 REHM# TEIL Z + 





ENIG0 








4 
ı® 


2 


1 


1 
“8 








15> 
1: 
16* 
<118> 


&8> 


697°> 
3> 





139 E=PEER (1977) FOKEBU+1,754 


135 


35 IFE=-3STHENBW=- 1: AA=11: SOSUBZSE 


1394 IFE=T&6THENBW=L:AAR=12:6GISUBZIR 
145 IFE=44THENBW=-Z7: GÜOSLBZS8 










15% IFE=Z&THENEW=2T: BOSUE2SD 

157 IFE=21THENGOSUB6BR 

155 FORC=ITOM 

1&R U=INTERND (1)#4) +1: ONUSOTDI16Z, 
„168 

162 BE=2:6010199 

164 Bk=-2:6070188 

166 Bk=44: 6070100 

159 BE=-44: 5010180 

182 FÜKEKT(CI,D 

182 IFKT (CO) +BES772ATHENBE=EZ 

a8 IFET(O)+BEFF7FASTHENBE--2 
1985 KTIOI=KTICH+EK 

190 D-PEERIKTIEN 

195 IFD=L1CRD=-12THENGDSUBERB 

29 IFD=1ATHENGOSURBSZ 

2053 IFD=25THEND=I2 

ziB FOKEKT (CO) „Pr POKEKTIDIHFA,L 

215 NEXT 

=28 IFA=SRTHENA=G: SA=5A+1: M=M+1:GUSUB720 

230 GUTOL2D 

>58 FOKESU+1,253 

>35 IFZ7=1THENZ=B: POKEFA,8: G0FO2B8 

278 POKEPA,Z2 

29R EA=FA+Bn 

25 IFPAX7FBZTHENPA-PA+22 

237g GOSURTOR 

295 POKEPR,Af:POFEPA+FA,1:RETURN 

380 IFFEEK FA) =BTHENZ=1: RETURN 

=1B IFPEEK (PA) =1QANDK=I THENPD=32: S0SUB32 

B:A=A+1:RETURN 

IFPEEK {FA)=1ETHENK=1 : SDSUB49B: RETURN 

IFPEEK (FA) =ST4ANDK=1THENSDSUBSBB: RETU 


164,166 


>15 
328 
Rn 
3350 IFFEEK (FAIZSSRTHENFÜ=SPEER (FR): GOSUBS 
AA: RETURN 

335 RETURN 

42a A=A+1:50=5C+5:POKESU+1,2 

320 FORL=1T08: FÜHESU-1 258: FORT=1T080:NE 
XT: FORESU-1,2: NEXT 

425 RETURN 

SAU AS=AS+LIPOKESUFL1,O 

619 FORL=1T08: POKESU „230: FORT=1TOBSR: NEXT 
:POKESL, A: NEXT \ 
615 Pä=PA-22:5C.=5CtH18: EBD 
8270 RETURN 

sa FORL=2SBOTULZBSTER-2: 
FESU,B 

890 IFAA=11THENY=-1 

695 IFAA=17THENY=1 

ag J=PAryY 

785 POKEJ Di: D=32: J=J+Y: IFJ?79&BORJT 77BED 
RX=12THENX=2D: RETURN 

718 IFPEEE{J}=BTHEND=B: GOTO725 

7415 IFPEEK (J}=1BTHENSC=SC-10: A=Ar1:50T07 
aa 

724 IFPEEK (ID) =2STHENSCSSCH 1A: A=A+1:M=M-1 
;50T0740 

732 IFFEER tJ)IS SZ THENSOTO7AR 

735 FOEEI „9: POKEI+FA,S:FORT=1 7020: NEXTEX 

=%4+1: 5070785 

748 FÜORL=15TOBSTEF-1:FOKESU+?,L:POKESU+r1 
„INT{RND (1) #08} +12B 

745 FOKEJ, 15: FORT=1TOLOD:NEXT:POFEJ lo: 

ORT=1T0O18G:NEXT:NEXT-POKESU+F1,B 

7aa IFMZ1THENM=1 

75@ FORESU+2,15:PÜüHEJ „22 

755 X=Q8: RETURN 

BB0 FOKESU+, 140: FORL=ISTOBSTEF-1:POFESU 

+21. 


FOKESU,L:NEXT:FO 
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©1491 


Dee 


42> 


22345 
«56> 
2254} 


251) > 
z2l?r 
A2Ie> 


«41315 
aß: 
2475 
<2aB% 


2150> 
1715 
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885 FOREFA,1S: FORT=1T019B: NEXT: POKEFA, 16 
: FÜRT=1TO1BE: NEXT:NEXT:POKESU+Z 

sid FORETA,FO:PA=7996: FOKESUH2 15: LI=LT- 
1:1IFLI=SBTHEN 1ER 

820 K=B: 0-32 

825 RETURN j 

850 AsAr1:SCHSC-5: POKESU+1 242: FORL=15T0 
RSTEF- 1: PDEESU+Z,L 

98535 FOREKT(O) „157 FORT=1TO1BO: NEXT: FOKERT 
{01 „18: FORT=S1T0188: NEXT=NEXT: POKESU+1,2 

Saß De3Sz:FokESU42,15 

9855 RETURN 

982 FORL=1T030 

Fi S=INT(RND(1)#352)+77R2: IFPEEK (532332 
THENFIG 

715 FOFES,B:FOKES+FA,LINEXT 

19 RETURN 

FZ@ IFM>4THENM=4 

7223 FÜRL=1T0SA 

725 SL=INTiRND (13%#2423+7724: IFFEEKCSLIS 
SETHENFES 

722 FOEESL, 19, PFOEESLHFA,„S2 NEXT 

725 RETURN 

1142 POKESU+F,2754 





“P1> 


2435 
TER 


Bel og 
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1110 At="IRFSON BLUETGAMEISPACEFOVERIRFS 
12 





BEFF"GB&=" IRVSONISCORE: TRVSDEF "I C$= iRl 
SONFSAVEDISPAGEFSATELLITES: TRFSDEFS" 





1115 FRINT"ILZLEARF" TAB (95) 
1122 FORL=1TDIE:FRINTMIDE{A&,L,133: POEES 





‚U-1,292: FORT=1T0100: NEXT: FOKESU-1,0: NEXT 


11239 FORT=1TO10B08: NEXT 

1132 FRINTTABtLl11} 

ii125 FORL=1T08: PRINTMIDE (EL, 13: FOKESU 
„222: FORT=LTOI28: NEXTSFORESU,O: NEXT 

i14 FRINTSE 

1145 FORT=1T01@R2: NET 

1152 FRINTTAB{233 

1182 FORL=1TDITEFRINTMIDFICH ,L, 123g: POKE 

U,zB@:FORT=1T0O102:NEXTIFOEESU,O: NEXT 
1185 FRINTAS 

11&3 FORT=S1TOLDRB: NEXT 

3178 FRINTTABLFEI"IRFSON PURPLEFNEWÄSPAC 

ErGAMEispAcEr iv /N Oo" 

(ZB23=11THENRLN 

170 IFPEEK (ZE7Z) =ZSTHENFOFKESU-7 , 240: PRIN 
"IELEAR DBORNS RIGHTTIGODDISPACEFBY "EN 

D 

228 GODTDILSO 








2i19B> 
189% 











37% 





Josef in den Höhlen | iür ten v-20 mit 3K-Erweiterung 





Die Steuerung erfolgt mit dem Joystick ! 





1 PRINT" EGZLEARF"SFOKRES6B79 , 74: K=71 75: Fk 
34879 ,B: W=34878 

= PRINT"{IRVSGN HHITE DOWN? RIGHTEIELCHSO 

FT{DONN LEFTSIFRESENTS: " 

ö FOKEW, 19: FORR=148 TO2ZBSTERF. 7: FOKEN+R,R 
:FOKEN-2,R:NEXTR i 

7 FORR=129T0282: FOKEW+D R: POKEN-2,Rı2NEXT 
R 

{=} FÜRRSZRBTDLZBSSTER- 1: POREN+2,R= FOKEW- 2, 

R:NEXTR: Z=2+1: IFTZSTHENSOTOS \ 

7 FOEEN, 9: POKER+Z, 12: FOKEN- 2 „ B: FORT=1T0L 

BBUB: NEXT: IFl=1THERTA 

iQ FÜRY=1TD13 

11 FORI=9T07: READA:FOKEE+T „ArNEXTI 

12 K=K48: NEXTY 

2 FRINT"ICLEAR BOWNZ}" 

=1 FRINT"ISPACES 

FACE: ISPASE} 

SE FRINTISPACEEH 











23 PRINT" {SPACEZ 


ıSPÄATCE 



















Sf BETSPACE 
25 FRINT*iSPACE} 




















ISPACEZF" 
KDOHNZ RIGHTITINISPACEIDENISPAT 
E>HÜEHLEN” j 
=7 PRINT" IBOANZSCOPYRIGHTISPACEFEY{SPACE 
3ELCHSOFT" 

Sa FRINT"IDOHNIARTTIER: MICHAELISPACEIALT 








1 PRINT" IDOHNZ, RIEHTFISLTOSTEH" :O=1: IFZ= 
STHENGOTOS . 

32 GETRE: IFRE=U"THENSS 

33 FRINT"ICLEARFSFIELANLEITUNG: " 
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Sp 


<78> 


675 














11: 


229% 
1375 


pr. 


programme 


=& PRINT" £RORNISTEUERNISPACEISIETSPACENT 
HREN{SPACES JÜ-TSPAGE DOAN}SEFTSPALCEF ZUER 
STISPACEFANISPACE>DENTSFACEFBEI-TEOHN:DE 
NISPACE}FEINDLICHENISPACEIFLIE- SPACE" 
#7 FRINT"GERN{SFACGE3 VORBEI TSPACEIUNDISPRA 
CEIDANNISPÄCE> BORN} INZSFACHESDENISPAGEFU 
NTEREN{SPACEITEILISPACES DOHNFDESTISRACET 
SFIELS. T[SPACE3DURTISPACEF SAM-TSPRACE" 

=8 FRINT"MELNTSPACEHSIEISRACEIDIETSPÄCEH 
F{SPACEFSEHAET- TOOANFFEISPACEFUNDESPACES 
KEHRENISPACEI ZULEPALCE} IHRERTDOHKF AUSGANG 
SSTELLUNGISPACE} ZU-{SPACEZ BORNFRÜUEOCE.. " 
397 GETRF: IFR$=""THENSF 

40 PRINT"ICLEARFSIETSPAGEIDUERFENTSEPRACE} 
DABEI{SPACES DOHNINICHTTSPAGEIANISRÄCEID 
IEISPACEIWAENDE TIFSPACEZ DOHNSDRERISPACEHD 
TE{SPACEFFEINDLTICHENTSPACE2F" 

41 PRINT"FLIEGERISPACEHSTÜISSEN. " 

42 FRINT" {BOHNZFFUNETEWERTUNG: " 

42 PRINT" {BOANISCHRTZ:SBEISRAGEIF." 

44 PRINT" {DONNIMITISPAGEFALLENISPATEFSCH 
BETZENISPACEZ DORNYAMISPACEFAUSGANGSFUNE 
Te{tSPracEs DOHN>PFUNKTZAHLTSPACEIH+LSPACEIS 


| 21: | 


1 FOKETAB69 , 240: POKEFSBT7F,BEFRINT"TCLEAR 
KHITEIFRESSTERACEN Fi ISPACEFTOTZPALEIS 
TART" 

2 GBETAS: IFAF="IR25" THENZ 

4 ZT=580: 50-4 

5 FRINT"{CLEARF":POFET6889 „235 
EEST139,,8: F=30720: 0=7823:0=772 

& HH=36878B: JJ=35877:WW=36874 
28 REM&##BILDSECHIRMAUFRBAUFF* 
29 FRINT" {HOME HHHHOHHNHNHONONHNHONSHOHHHNNHNNH” 

=B PRINT"IHOBE HHITE RYSONIPET: "SCHGOSUB 
150 

=i FRINT"ICTAN}ECEEEEEFELFFEEEEEEEERE"; 
FRINT "EHHHHHHHHHHHHHHHHHEEEE" 

PRINT"EEEEEEECEREEHEEERHEEEE" ; 

=4 PRINT"TEHHHHHNHHHHHHEEEEHEEEE" 

35 FRINT"EHEEEEFEEEEEEEEFEHEEEE"S 

=6 PRINT"EHHHHHHHHHHHEEFREEHEEEE"; 

37 FRINT'"EEEEHEEEEFFEEEEFEHEFEE": 

=8 FRINT"EEEEHHHHHHHEEEEE LREDSFFFECVÄNFE 
EE" s 

=z$ FRINT"EEEEFFEEEEHEEEFFEEEERE" 

4B PRINT" LYELLOWBIFFFFFFFFFEHFFFFRFFFFFR 













































































a=7B5r: FD 
: oc 


5: 











41 IFSCHIRRORSC-TFORTHENE® 

48 PRINT"FHHHHHHHHHHRHHHHHHHHHF "5 

44 PRINT"FHEGEHBBEBGEGSHRESGESHF" 

45 FRINT'FHEHHHHHHAHHHHHHGSEENHF" 3 

45 PRINT"EHGHBSGSEHBSHEEHG GREEN} TiYELLO 
WIEBHF"z 

A7 PRINT"FHSEHEHHHHHLGREEN? TTYELLONISGHGSH 
EHSEHF" 3 

a& PRINT" FHHHHHSESEHBHSHHHHHHHF "3 

43 PRINT"FGEGHGG {GREEN} TLYELLONTBEHHHSHG 
HEHEHF" 

sg PRENT"FGHHHSHHHHHBREHEHEHSHF" 5 

24 ERINT"FEHBSHHEHHSGHNHBHTGREENSTTTELLO 
BIHGHF"E 

== PRINT"FEHGSGHEBS GREEN} LIYELLOWFGSGEHB 
SBGGHF" s 

5% FRINT"FIGREEN}LIYELLONIAHHHGBEGBSBEHN 
HHHIGREEN? ICFELLONIHF"; 

55 501094 

&a PRINT"FSBHHHHHHHHHNHHHNHBGGEF" 

&1 PRINT"FGHHBGSSGEBSBÖGHEHHHHHF "5 

&2 FRINT"FGHBGHHHHHHHHHHHEEHEHF "5 

















= 6 


Z119P> 


141} 








1715 


21945 
Z2U45 
APEF 
Sl 
£111> 


45 PRINT" DOHNZISTEUERUNG: JDYSTICK" 

46 SETRKF#: IFR$=""THENA& 

Sa PRINT" CCLEARF"SFOKEA31,IS1:FOKELFO,A 
tB8 REM HELICOFTER 

1dı DATAZ354,168,125,255,124,148,175,2 
125 REM FEIND 

184 DATAs4,56,56,126,126,56,56 ,64 

125 DATAU,0,2,5,0,8,0,0 

1987 DATA2,28,28,126,1276,28,28,2 

11a REM GEMAEUER 
DATArSS,129,153,165,1&5,1592,129,2559 
DATA2SS, 255 ,255,235,255,255,255,255 
: DATA2SS,195,1685,153,153,168,195,255 
15 REM LEER 

DATAZD,0,0,0,0,0,0,0 

REM SCHATZ 
DATA16&,40,59,146,59,49,16,8 

175 REM HINDERNISS 

DATASG „56 „56 „56,36 ,56 ,96 ,56 

REM HELICOFTER VON VORN 
DATAL27,8,54,73,85,62,20,1197 

REM HELICOFTER SEITE 
DATA177,8,178,255,52,21,126,9 
DETAR,2,255,255,255,0,0,8 





&3 FRINT'FHIGREEN}TIFYELLOW}BGHGGEEBEEEGEH 
HHHGHF"; 

&4 PRINT"FHBEHHSHHHHLGREEN} TIYELLORTHHHH 
HSSGHF"; 

63 PRINT "FHHHHHHHSSEGEGEEEHHHHHF" 3 

66 PRINT"FHBEGHGBGTGREEN} TLYELLORFGHHHHH 
HBSGHF" ; 

87 ERINT"FHOGTSREEN} TIYELLORHEHHNHHGHGB 
HHIGREEN}I{TELLOHFGHE”; 

&8 FRINT"FHHHHGEHRGGHEHESBEGEHF"; 

67 FRINT"FHGGHSGHEGHHHHHHNGHAHF "5 

74 FRINT"EHIGREEN? LIYELLORFSHHHHHHHGEGSE 
HIGSREEN} L{YELLOHFHGBF" 5 

B4 FRINT"FFFFFFFEFFFEFFFFFFFFE"G:POKEA,L 
1: POKEB185, 6: FOKEB185+38728, 7: POKE77OL,B 
85 FOKEU,4: POKEU,2 

88 J9=-PEER (37137) : POKE37154,127: JB=PEER ( 
374152) sPOKES7154,255 

87 O=0-1:U=U+1:BOSUB450: FOKED, 4: FOKEU,T: 
POKEO+F ,1rPÜKEU+F,1 

B8 FOKEO+H „Br POKEO+1+F 0: POKEU-1 ,8:POKEU 
-1+F, 

89 ITeZT-1: IFZT<LOAANDZTH1QTHENGOSUBISBE 
IFZT{ 1OTHENGDSUB1SS5 

od IFZT>1AGTHENBOSUB148 

91 IFZT<ISTHENBOSUBISS 

92 IFZT=27RORZT=2FUURZTSZABTHENSOSUBSOR 

93 IF7T=BTHENSST 

GA IF tIFAND4) SBTHENK=-22:1=11:W=22: G0SUB 
100 

GE IF (I9ANDB) =ATHENK=22:L=11: W222: S0SUB1 
62 

76 IFtIFANDLE)}=BTHENKS-1rL=1: N=-1: E0SUB1 
aa 

97 IFtJBENDLIGISDTHENKS1:L=12:W=1: BOSUBI 
[er 

92 S0T088 

iuR FÜKEHH, 10: FÜREA, 8: POKEA+F „Br A=sA+kıPü 
EEUN , 198: BOSUB2@D: POKEA,L:POKEA+F, 1:5 FOKE 
vi „BD 

181 FOKEHH,O 

122 RETURN 

150 FRINT"IRPSON HOHE RIGHTISI"ZT. 

151 RETURN - 

155 PRINT"CRVSON HONE RIGHTISY"ZT 

156 RETURN 

160 FRINT"{RKSOH HOME, RIGHTIAF"ZT 

161 RETURN 

2a2 Z=PEEK (A) s IFZ=SORZ=AURZ=7THENISO 
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«Bl 


<15@: 
21935 
2130: 
“1m4> 
Er: 


213: 


281 IFZ=9THENSC=SE+HSB: COC=CC+H1 : GOSUBS45: PP 
RINT"IHOHE RYSON HHITEIPETE"SC 

#02 IFA=DORA=UTHENSSO 

203 IFA=7851ANDEO=7THENSCSSCHSSREPRINT"Z 
HOHE RVSZON HHITEYPKT: "SC: GOSUBSIQO 

18 RETURN 

450 IFU=7742THENPOKEU-1,8: POKEU+F-1,1:U= 
Fr2& 

451 IFO=7812THENFOREO+1 „Be FÜKEO+F+1,1:0%= 
7822 

452 IFO=AORU=ATHENSSB 

435 RETURN 

4797 REM##3SFERREN SETZENHHH 

Sa RR=INT{A&RNDCLI II HL 

sai IFRR=1THENFOKRESOSI,6 

SB2 IFRR=FTHENFOEE792B,& 

s253 IFRR=SSTHENFOKE7PS4,6 

Ss24 IFRK=4THENFOKEBBS4,& 

si@ RETURN 

327 REMI###NEUER LEYELH#* 

539 FOREHH, 15: POKERWN, PRR= FORT=1 TOIRR:NEX 
TıFOKEWN , ZU1:FOÜORT=1TOIAD:SNEXT 

521 FOKEWW „8: POREHH,D 

535 IFSC=SFORTHENZT=450: 5070410 

S26 IFSC=1SRBRTHENZT=488: 5010410 
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=37 IFSCH=T7RRTHENZT=358: GOTOS1O =181> 
1425 548 RETURN 1728 
SEP 544 REM###SPFIEN_ENDERRE 1I6> 
545 FOKEHH,15: POKEWW „208: FORT=1TOIBD: NEX 
“107: T: FOKEHH , Br FORERM , Q: RETURN ZI: 
Spar 50 FORENHH,1S: POKEIT , 189: FORT=LTDIAG:NEX 
T:FOKEHH,A:FOEEJJ,O AG: 
246; 536 G0T0563 AL1Z15 
557 FOREI6869 , 240: FRINT" {CLEAR RESON POH 
FE AFDIE{SPACEHZEITISPACEFISTISPACEIUMISPAC 
ZELZ> Er 1285 
{BA 558 GOT0541 “137% 
24B> saß FORFS68697 , 240: PRINT" ICLEAR RFSON DOW 
ZAF1ıE NZYSIETSPACEFSINDISPACEIGEGEN ISPAGCEFEINI 
278> SPACES}HINDERNISSTSPACEIGEFLOGENTSPALE 
zaB4: ul Ee= 
1765 S61 FRINT"ZAFZON DOHN2 RIGHTSIYGAME ISPACE 
1875 Z>DVER" <171> 
2141: Sa2 FRINT"{RFSON DOHNZFFUNKTE: "SC 78: 
Eye 20 564 PRINT"IRVSON DOWNZFWOLLENISSACEISIEL 
"SPALEFNÜCHMALISPACEI PTIBOHNZ LEFT3FCY/ND" 1975 
1975 Sag GETAF: IFAF="VY'TTHENRUN 144> 
Al2r 61 IFAF="N"THENEND “192: 
EFF Hz GOTDSDR “161 
68: &10 FORT=1T03B08: NEXT:GOTOS "185: 


TIPS & TRICKS für den Commodore VC-20 





Sicherheitskopien für Kassetten 


Folgendes Programm ermöglicht das An- 
fertigen von Sicherheitskopien für fastalfe 


gedrückt; das Programm wird gespei- 
chert. Um mehrteilige Programme zu si- 
chern, muß der Vorgang wiederholt wer- 
den, wobei die Sicherung durch $YS256 





und NICHT durch RUN erfolgt. 
Gelegentlich wird der Bildschirm mit Zu- 
fallszeichen (teilweise) gefüllt, was den 
Programmablauf nicht beieinträchtigt. 


BASIC- und viele MSRoutinen. Nach dem 


Laden startet das Programm sich selbst, 10 POKE 36878,15 
weil es im Stapelspeicher abgelegt wird: 20 FOR X=0T087:READY:POKE256+XY:NEXT 
das Drücken von RUN/STOP erzeugt einen 30 SYS256 


Ton, der mit RUN/STOP + RESTORE abgestellt 
wird. Das zu sichernde Programm wird 
eingelegt, danach RUN eingegeben. Nach 
einem erneuten Ton wird die Kassette ge- 
wechselt und die PLAY- und RECORD-Tasten 


40 DATA 162,1,160,255,32,186,255,169,0,32,189,255,162,255,160,255,32,213 255 
41 DATA 169,200,141,12,144,32,228,255,201,13,208,249,141,12,144,162,70,189,65 
42 DATA 3,157,128,1,202,16,247,173,60,3,74,168,169,1,162,1,32,186,255,162,128 












Zwei Themen-eine Ausstellung | bb t " 
2 u. e 27 De Ü L- FONIG klar gegliedert: 

Tonband-, Video- und TV-Amateure, für 
2.Ausstellung EXPerimenten, Demonstrationen und vielen 
für Computer, Tips. 

Software 2 - 
und Zubehör In Halle 4 das Super-Angebot für Computer. 
reich, der Wettbewerb „Jugend programmiert” 


43 DATA 160,1,169,65, 32,189,255,173,61,3,133,0,173,62,3,133,1 ‚169,0,174,63,3 
Die umfassende Marktübersicht für Hobby- 
BE 9. Ausstellung für Funk-und Hobby-Eiektronik In Halle 5 das Angebot für ©B- und 
Elektro-Akustik-Bastler und Elektroniker. 
Anwender in Hobby, Beruf und Ausbildung. 
Dortmund 
und der Stand des WDR-Computer-Clubs. 


44 DATA 172,64,3,32,216,255,0 
Elektroniker und Computer-Anwender, 
Amateurfunker, Videospieler, DX-er, Radio-, 
[b M PUNTE [Na Mit dem Actions-Center und Laborversuchen, 
Dazu die „Computer-Straße”, als Aktionsbe- 
23.—- 27. April 1986 


























HungsgeEinde Wesifalenhallen Dortmund täglich 900-1800 Uhr 
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für den VG-20 
Grundversion 


für ein getroffenes Gewehr 10 Punkte und 
einen Freischuß. 

Bei jedem vorbeiflitzenden Hindernis 
werden Ihnen aber 5 Punkte wieder abge- 
zogen. Sie müssen sich also schon beei- 






Jahrmarkt in der Stadt! Die Schausteller haben ihre Stände 

und Buden aufgebaut, und Sie schlendern über den Festplatz. 

Als Sie an einer Schießbude vorbeikommen, wollen Sie Ihre 
Treffsicherheit unter Beweis stellen. 


Doch dies ist eine besondere Schießbude, die dem Schützen schon einiges an Ge- 
schicklichkeit abvertangt. Ihr abgefeuerter Schuß kann nämlich unter Umständen sein 
Ziel gar nicht erreichen. Hindernisse können diesen Schuß abfangen und dies bedeutet 
Punktverlust für Sie. Gelingtes Ihnen aber, einen Treffer im Ziel zu placieren, bekommen 
Sie natürlich Punkte gutgeschrieben. Für eine getroffene Ente erhalten Sie 45 Punkte, 


en, Ihre 15 Schüsse im Ziel unterzubrin- 
gen. Haben Sie alle Schüsse verbraucht, 
können Sie durch eine Zusatzchance Son- 
derpunkte erhalten, indem Sie bei dem 
Kommando “LOS“ den Joystick soschneil 


wie möglich nach vorne drücken. Sollten 
Sie einen neuen Highscore erreicht ha- 
ben, ertönt eine Fanfare. 

Trinken Sie also einen kräftigen Schluck 
„Zielwasser“ und legen Sie ant 


ES=PEEK (59) +2S6#PEEK (56) 53 

FOEESS „ES- (INT iES/256) 8236) 
POKES&,E8/256:CUR 

ES=PEEK (35) +254r*PEEH (56) +2 

FORB=DTI49: READA: FOKER+ES „A: S=S+A: NEXT 

FÜHFEB,7& 

POkE1,ES- {INT (ES/256) #256) 
FOHE2,ES/PS6 

1A FOKEF6879, 42: PRINT" CLEAR WHITES"; 

29 PRINT" CHONEFHBITTEISPACEHEINENTSPACEIM 

DMENT SPACE 4} WARTEN TSPACEHFUERTEPACEFNEU 
EISPAGESFZEICHEN. " 

=a FORI=7168107147+39#*B: READA:POKEI ‚A: NE 
xT 

42 FÜRI=38T0154STEP1:PFOKE36865, IE NEXT 

SQ FRINT"tELEARF" 

60 FÜkKES6879 „8: POKES6B69 „259: PRINT" CHQOHE 
KHITE DOWN REGHTTIWYLITSPACEN _#" 

7a FRINT"{RIGNTZ REDYKZNTISPAGEN IF" 

EB PRINT"IRVEON BOHN GREEN SPACE}WILLKOM 

MEN{SPACE}BEITSPACEIDERISPACES. DOWN CYAN 
3SCHIESSBUDE! N" 

92 PRINT"IRVSON GREEN DOWN SPACEIDASTERA 

CEISPIELISPAGENIST{SPACEISEHRIBOHN SPACE 
Z}EINFACH, SSPACEFDENNISPACEISIETDOHN SPA 


GES! MUESSEN {SPACE} VERSUCHEN{SPACE>SDTDOR 
B SPACE2IVIELTSPACEIWIE" 

1DB PRINT"<UP RIGHTS RVSON GREEN SPACFYM 
DESLICHISAAREHAB-ISPACE DOHNFZUSCHIESSEN 
„ISPACE}DABEI{SPAGE DOWN SPACEFIMUESSENT 
SPAGEISIETSPALETAUF {SPACE>DIE" 

11D FRINT"{RVSON GREEN DOHN SPACE}ANZAHL 
SPACE: DERISPACEFSCHUESSETDERN SPACEFFAC 
HTEN. {SPACEF-TASTE-* 

=a0 FORI=1S56TOSSSTEP-1:FOKES6965, I: NEXT 

za POKE19B,A:WAITLFE,I 

38 FORI=38T01536: PIKESA965, Ir NEXT 

40 PRINT"{CLEAR HONE WHITE DOWN, RIGHTTF 
WYETLSPAGEI #" 

258 PRINT" RIGHTZ REBIKINTISPACER!#" 

2S1 FRINT"CRFSON DOWN CYAN3PASSENTSRACES 
SIETSPACETAUCHTSPACEFAUF ,„ {SPACER DOHNYDA 
SS{SPACEISIELSPALEFNICHT{SPACEIDIETSPACE 
4 BOWNIHINDERNISSE{SPAGE} TREFFEN, SPACE} 


252 FRINT"IRVSON DOHN CYANTYDENN{SPACEIDA 


pDbyueuauhr 






























































NN{SPACE} WERDEN SPACE} THNEN TDGHNFPUNKTET 


























SPACE FABGEZUGEN! |" 2195 
7ER PRINT"IRVFSON DOHNI GREEN SPACE>GESTE 

<> LERTISPACEIWIRDISPACEIMITISPACET DOHNIDE 

Z2Al® MISPACE YELLOKIIJDYSTICKTGREEN}" <170> 

£179> 270 PRINT"IRVEON DOWN RIGHTFI-TASTE-" <14> 

EIZT> >80 FORI=1S6TOSBSTEF-1:FOREISBES,IcNEXT 1855 

167% 298 FOKE198,B:WAIT1FB,1 177 > 

107% z0R FÜRI=38T0156: POKEFAB6S, I: NEXT Laser 

2945 318 PRINT"{CLEAR HÜHE RVSOFF WHITER"APOK 

SRE E36869 255: PRINT" {RIGHTZ HHITEIWYLITSPAC 

£98> E3 #IDOHN LEFTT REDIKENTASPACEI !$" 2415 
=15 PRINT"<@VSON PURPLE DOHNZ RIGHTAFWIR 
D{SPAGEFGELADEN" 

2104% #78 FORI=15&TO3BSTEP-1:FOKESAB4S,I:NEXT 
3® PRINT"IELACKI"sFOKE631,131 

21222 gaa bATA173,17,1453,72,74,74,41,7,122,251 

180% „184,41,32,1@,12,5 865 

<BB> Fım DATAZS1,133,2531,162,127,142,34,145,1 
73,32,145,162,255,142 63» 

ZI8% 928 DATAZ4,145,41,1728,74,794,74,74,5,251, 

2138> 3,112,73,255,168,169,0,76,145,211 &165> 
1202 DATA?,26,62,26,62,127,126,126 
1025 DATA234,254,60,50,50,60,62,126 

Eart:p 181D DATR2,.2,5,5,5, =Q: 
1215 DATAQ,24,60,126,219,255,102,68 x231> 
t1A2B DATAZB,652,47,71,65,66,36,24 Kari: 
1925 DATATE,1265,219,153,68,368,60,122 <a 
1238 DATAQ,1,63,255,232,240,192,128 1485 

delei E lass DAtA1z?,255,189,219,126,68,56,36 <11ä> 
1240 DATA48,98,128,177,127,239,245,126 198 
1245 DATA18,222,44,121,158,52,85,72 205: 
2493 DATAB,126,195,219,680,62,126, 126 LIE 

2783 1050 DATA4Q,197,243,185,157,207,102,60 22197 > 
12535 DATASB,66,152,165, 165,157, 54,60 <139> 
1040 DATAB4,16,15272,58,69,126,110,49 zr12> 

75: 1965 DATA&,7,15, 157,298, 224,96,76 <128> 

Sia4r 1070 DATAB,O,9.2,3,4,7,18 157% 

“1B6: 1975 DATAQ,B,2,0,224,16,208,56 125% 

2161: 1n0A DATATZ,28,28,356,72,200,16,224 1195 
1085 DATAZS1,251,251,2,222,225,223,0 Cr 

ERI2> 1070 DATa64,8,34,24,94,32,73,0 BR 

237% 1095 DATAQ,149,149,215,181,147,149,146 SIR? > 
1108 DATAA,176,170,170,202,179,178,196 £1B5> 
iıas nATan,112,64,64,112,18,16, 112 <158> 
1118 DATAR,1,7,15,39,62,60,60 1733 
1115 DATAS1,15,7,7,15,63,126,248 95} 

22295 1120 DATAG,224,224,0,48,48,48,48 «151> 
1175 DATA6B,62,179,179,51,51,48,2 «188 

4/86 
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1129 DATAB,2,2,0.0,2,2,115 

1135 DATA2B3,285,77,125,48,0,8,8 
1142 DATAB,12,12,38,380,142,204,44 
1145 DATAGB,68,238,197,3,8,0,0 
115@ DATAA,@,1,17,3,3,17,25 

1155 DATAn,0,0,0,0,2,8,2 

1140 DATAS7,125,258,199,178,0,0,8 
1165 DATAB,0,2,0,9,0,0,8 

1178 DATAQ,O,B,128,192,192,128,128 
1175 DATA128,1972,224,0,8,8,0,D0 
1130 DATA2D,20,20,28,18,9,4,3 
FOR REM EEE NH 
2Qa5 REM#+ COPYRIGHT DEZ.1985 * 


zBiQ REM» BY * 
2a270 Rene FERDINAND * 
2a3A REM* HUEBERS * 
zu402 REM® * 
ZaSa REM* GENTLEMAN-----50FT * 
ZU4U REM* * 


ZB7O REM 


1 AF="DFIDGHN LEFTESIUHVILEF"ILEFT SPACER 
DOHN LEFT SPACE2Y"LIS=" SPACE DOHN LE 








- ET. SPACE?F "IKE=" CHÖME DOHNIG}":9=36878: PP 
ÖKES,15 
5 POKES2,28: FOKES&,28 


4 M=B:6=7936:X=1:81=7745:0=215: SC=B: l=4:8 


A=1B:5E=109 
IB FRINT"ICLEAR HHITEF"SPOKES+1,B:FÜHKES- 
9,255 


2a F=39729:F=8174:K=15: FOKEZ+3 , 259: 
GoSUmZagaO 


>80 FRINT"ICLEAR HOME BHITE RIGHTTIWYETEE 


PACEI 8" 
40 FRINT"IRED RIGHTFFKZNIBRACENE" 

58 FORI=7GORTOSRIESTERZZ: FOKREI ,I8- POKEI+ 
F,A:NEXT 





68 FORI=77RLTOSBEISTERZE: PÜKET „18: FOKEI+ 


F,4: NEXT 

8a FORI=3B943T029882: POFEI,17NEXT:FORI=S 
SOSSTD3S7B4: FOEEI„I:NEXT 

Fa FOBER,1:FOKEP-22,0 

122 FOKE?BES,18:POKEFBSS S+F „4: FOKE7854,18 
: FOKE7HSAHF „A: POKE7923,, 19: PORETFZSHF „4 
112 POKE?7742,18: FOFKEFYFAEHF „42 PFOFESGI1,18 
:POKESB1 1+F „A: FÜKEIDSR, LS: POREBAIOHF „A 
ı11 FOKEZ+3,127:G0T080%8 

120 L=USKi0} 

125 IFL=12BORL=1320RL=1S6THENA4OD 

152 IFL=4FHENF=SF-1:60T0308 

135 EIFL=-BTHENF=F+1:G0TOF208 

126 GOSURTER 

140 M=NM+1: IFMZLBTHENDNXSOTOSHB , S0R, 728 
143 IFM= 1 8ANDX=1THENFOKEN IT: E=E+ 195: M=0 
EX=X+1 

145 IFM=LBANDX=SZTHENFOKEN, FT: E=E+71lıM=0: 
X=X+1l 

147 IFM=1BANDX=SSTHENFÜOREN „S2: FORI=1T04:P 
OFES-1,B=:NEXT:X=1:M=0: E=7936: 60SLB155:50 
=50-5 

i52 GOTOSOAR 

153 E=INT(RND(1)#173 +3: RETURN 

300 IFFPXBISSTHENF=PHi 

ZıA FOKER,1: FIREP-22,8: PODEEPF+1 „ZD: FOKER- 
>1 „32: POKEP+F, 1: FOKEF+F-22,1- 8070140 

3228 IFF>B1BSTHENF=SPF-1 

>38 FOKEF,L:FOREP-22 ,2: FOKEPF+1 32: FOKER- 
23,32: POKEF+F, 1: FOKEP+F-22,1:60T0140 

400 A=f-44 

4180 FGRI=1TOK: IFFEER (A}S >SZTHENLAGO 

4153 POKEA,2: POKEA+F „3: FORR= ATOZ=:NEXTR:FO 
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©1225 
©1295 
“113: 
<156> 
2252> 
“945 


Fer lee 


ra Be 


z1904> 
473} 
“169> 


=132> 
425 

1925 
1425 
Sa3gr 
I6> 

1985 
All? 
2035? 


lb 
E24l> 


22935 


„185> 
-118> 

















programme 


KEA 522: A=A-22: FOKES-1,?58-1: FOKES-L,B:NE 
x 
20 A=04+330: D=D-1:B0T0908 
Sao N=E+M: FOKEN- 1,324 POKEN+F , INT (RND {12% 
FI+1:POKEN,C: POKES-4 ‚254: POKES-4 ‚0: B0T01 
zu 
480 N=E-M= FOKEN+1 32: POKEN+F , INT(RNDC1I* 
7} +1: POKEN,E: POKES-3 „250: POKES-3 ,8: 50701 
2a 
724 N=E+M: POKEN-1 ,32: POKEN+F , INT {RND{1}®* 
”3+1:POKEN,C= POKES-2, 218: POKES-2, 2: 50T01 
28 
BOB IFSCZATHENSC-O 
#3SCHUESSE: ";@" £LEFT SPACES" PRINT" CHORE 
DOWNS RIGHTZ RYSOH WHITEISCORE: ";SC" LE 
ET. SPACEI" 
318 IFO=OTHENSaAA 
852 60T0148 








‚a8 AU=EINTIRNDI1I RZ H+L 


7@1 IFALU=1ANDSAZLETHENSA=SA+1:WA=5A-1:5B 
=SB-1:WB=SB+1:PRINTKFTAB (WA) LEKFTAB CUBIL 
1% 

918 IFAU=ZANDSA>ZTHENSA=SA-1:WA=SSAHL: SB= 
SB+1:WB=SB-1: PRINTEFTABLCWAILIFKETAR WEIL 
* 

928 FRINTK£TAB (SA) AF-FRINTKFTAB (SB) A$ 
950 RETURN 

102 U=PEER (A) 

1801 IFD=8THENSC=-SC43S 

1024 IFO=4THENG=B+1 

ia0S IFGHZANDO<SISTHENSCSSÜHLO 

19086 IFO=170RDO=37THENSC=SC-15:8=0-1:POKE 
5-3,255: FORI=BTOSR: NEXTI:FOKRES-3 ,2:60T08 
22 

1100 FOKEA,1F . 

1112 FORI=15TOASTEP-2: FORY=2S4TO2 ZSSTEF- 
2: POKES, I:POKES-S,Y: NEXTENEXT: FOKES-S, 
1111 FOKES,15: POkEA, 32 

1204 GOTOBOR 

ZuaON FRINT"ICLEAR HÖHE WHITE RIGHTTI 
SPACE) _#" 


WYEI 





810 PRINT"IRER RIGHTFFKZNTISPACEH TE" 
zu=28 FRINTTIRFZOR BOHNZ RIGHT SREENISCOR 
E: "Sl 


za5@ IFSCHHITHENHI=SEC: GOSURI1AO0DB 
A420 PRINT"ÄÄRFSOH RED DOHN RIGHTIHISTORE 
"HI 
ZaS2 FRINT’{IRFSON YELLON BOHNIWOLLENISPA 
CESSIETSPACES NOCH <SPACETEINMAL TDEHN? SPIE 
LENT{IDOHNZF AT" 
Ans FP= FEEK (197) 
U7a IFF=2@THENFORI=FBTO LS: FOKRES- 15, 
EXTSFRINT"ICLEARF"LFOKES-13,38: 50701 
=A8@ IFF=238THENFOERESSI69 ,FIBS PRINT"ICLEA 
RS "END 
zur79 GOTEZB6U 
SBON FRINT"ICLEAR WHITE RYSQHISONDERFUNE 
TE:" 
Tag FOKES,„15 
SIE EOSUBS?R8: FORI=1TOV:NEXTIFRINT"TDOH 
N3 RIGHT AFSUON KEDFACHTUNGB! 
3325 BOSLUESFBOR: E=USR (DI; FORIS1TOVSNEXT:I 
FE=1 THEN2BAG 
5530 FRIMT"IDOANZ3 RIGHT RFSON EYANHLOS!! 
u m T 
55355 T=120 

548 E=USR (0) : IFE=1THENSABG 
SS5ß T=T-2:PRINT"IHOHE DOHNIO RIGHTZ YEL 
LOHR BYSORF"TYIRVSOFF RIGHT ECYANIUTY" FO 
ES-3,T+158: IFT={/11THENSSRO 
Iirjerie te} Er 
Sof FORES- 








I:N 

















„D:PFRINT"{HOHNE RIGHTIS RVYZON 





Gompube mib 


18977 
1 


«22% 


199} 


SA 
2-75 


“853> 
<49> 
136> 
£<177% 


SEE 


24% 


azı2n 
“175% 
192% 


“i1l> 
BG: 


werkstatt 


FM TE TLRWSBER REBIUTV" =FORI=1TO23BR: NEXT 





: SC=SC+T:560TOFORE 

sro V=INTEIRND<1) #33 +1) 1A: RETURN 
AAZR FORK=1TOS0:NEXTK:S0TOLGALO 

10202 FORK=1 TOTER: POKES-4 „228: PORES-3,230 
:NEXTE 

ıa01@ FOKES-3 ,B: FOKES-4 „2: WeW+l: IFW=STHE 
N10825 

1B2?8G FÜRK=1T030: NEX TE: GSOTDIADEE 

19925 FORK=1 TOSB: NEXTK:FOKES-4, 240: PORES 
-3, 238 

18077 FORK=1TOFEB:NERTE 

1a0:& POKES-4 „2: FORES-2 „8: FÜRK=1TD20B: NE 





























XTK: RETURN £97 > 
rät ZIBOR PRINTSFE (227) " {HHITEIWYLITSPACEI 8 
<id% IDOHN LEFTT REDEKEINTTSPAGEH ES" SEP 
<i179 > >BB10 PRINT" IDSHNZ RVSON PURPLEIDERTISPALC 
E3COUNTDOWNCSPACEFLAEUFT: {SPACEI" 1943 
1565 ZRa28 PRINT"{HONE DOHNIT RIGHTS WHITE Ab 
SONF"T"ÄLEFT SPAGE} "2: T=T-1s5PFÜKES-2,128:P 
<95 OEES-2, 48 
SIEH ogaa2Ss IFTZOTHENTAU4R 1343 
Rad GOTO2DAEN 2PFE 
DAS: 2240 FORI=1STUSSTER-1:FORA=T34TD223STER 
244 -1:POKES, I: FOKES-1 „Ar NEXTENEXT:FOKES-1,D 2375 
29052 FORES, 15: RETURN 128% 
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MERGE - ROUTINE 
für dem VC-20 mit 3K-Erweiterung oder den C-64 


Laden Sie dann das erste Programm ganz 
normal ein. Mit $YS678, “prgname“,8 (für 


Diese abgedruckte Maschinen- 
routine erweitert den Befehls- 
vorrat des VC-20 um den Befehl 
„Merge“. 


Er bietet die Möglichkeit, Basicprogram- 
me auf sehr komfortable Weise aneinan- 
derzuhängen. Dies kann sehr nützlich 
sein, wenn man sich im Laufe der Zeiteine 
Unterprogrammbibliothek zusammen- 
stellt (zum Beispiel: erweiterte Print- oder 
Inputroutinen), so daß man - benötigt 
man nun eines der Unterprogramme in ei- 
nem anderen Programm, an dem man ar- 
beitet - die jeweilige Routine nur noch in 
das Programm einfügen muß. Natürlich 
wäre es sehr mühselig, die Unterprogram- 
me jedesmal neu einzugeben. Hier schafft 
die Merge-Routine Abhilfe. Gehen Sie da 

zu folgendermaßen vor: 


- Geben Sie den abgedruckten Basic- 
Loader ein und speichern Sie ihn zur 
Sicherheit einmal ab. Die REM-Zeilen 
sind dabei für den Programmablauf 
unrelevant und können weggelassen 
werden. Der Basic-Loader entstand 
auf einem VCG-20 mit 16kByte-Erweite- 
rung; es kann daher sein, daß Anwen- 
der mit kleinerer oder gar keiner Aus- 


baustufe REM-Zeiten weglassen müs- 
sen. Unabhängig davon läuft die ei- 
gentliche Maschinenroutine in allen 
Ausbaustufen. 


- Starten Sie das Programm mit RUN. 
Sollten Sie einen Fehler beim Abtippen 
der Data-Zeilen gemacht haben, teilt 
Ihnen das Programm dieses mit und 
unterbricht den Programmablauf. Sie 
müssen die entsprechenden Zeilen 
dann noch einmal überprüfen. 


- Ansonsten wird nun die eigentliche 
Maschinenroutine, die sehr kurz ist, 
abgespeichert, Legen Sie dazu eine 
Diskette ein und drücken Sie eine Ta- 
ste. Das Programm arbeitet auch mit 
Kassette zusammen. Sie müssen dazu 
aber vor dem Programmstart in Zeile 
10150 die ‚8,1 in,1,1 ändern. 

Der Name des erzeugten Maschinen- 
programms ist MERGE.CODE. 


Wollen Sie zwei Programme miteinander 
verbinden, laden Sie die Routine mit 
LOAB"MERGE.CODE",8,1 {für Kassettenanwen- 
der: LOAB“MERGE.CODE“,11} absolut ein. 
Geben Sie dann NEW ein, um alle Basic- 
Pointer wieder zu normalisieren; dies dür- 
fen Sie-auf keinen Fall vergessen. 


Sompube mif 


Kassettenanwender: $YS678,“prgname“,1} 
wird nun das zweite Programm nachgela- 
den und mit dem ersten Programm ver- 
bunden. Für „prgname“ muß dabei natür- 
lich der Programmname des zweiten Pro- 
gramms eingeseizt werden. 


Die beiden Programme müssen folgende 
Bedingungen erfüllen: 


- sie müssen zusammen in den Speicher 
Ihres VC-20 passen, 


- das zweite Programm muß höhere Zei- 
lennummern haben als das erste. 


Sind diese Bedingungen erfüllt, bilden 
beide Programme nach dem „Mergen“ ein 
einziges, das in dieser Form entweder 
ganz normalabgespeichert oder noch ein- 
mal um einen Programmteil erweitert 
werden kann. 


Für Interessierte habe ich in den Basic- 
Loader ein kommentiertes Assemblerli- 
sting der Routine integriert. Nach einer 
einfachen Adressanpassung, die man mit 
einer Referenzliste vornehmen kann, ist 
das Programm in der Form auch auf dem 
6-64 lauffähig. 
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_ werkstatt. 


REM KREREHERTHERREHTF HH TE HERE HF HEHE INH HH HER HE ERSTER IF EN ER 


Ö 
| i REM * * 
Z REM * MERGE-ROUTINE FUER DEN COMMODORE vozo * 
3 REM # * 
4 REM * BELEET WIRD DER SFEICHERBEREICH VON 678 BIS 722 * 
5 REM + GELADEN WIRD MIT LOAD"MERGE.LCODE*,8,1 [L,1,1] * 
6 REM + GESTARTET WIR MIT  SYS56878,"FROSRAMMNAME",8 [L,1] * 
7’REM * #* 
8 REM + WRITTEN 1985 EY WALDEMAR RAAZ * 
7 REM Ba 2 2 ZZ 0 2 2 22 2 2 2 202.2 2 22 2312202 202 2 22727 2121212 2.2202 272022 27202022 2020272 2 ee een 
iO 2 
il: 
10000 DATA 032,258,208: REM JSR $CEFD 3 AUF KOMMA FRUEFEN| 
ioool 
19002 DATA 032,209,225:REM JSR $E1Di ı LOAD-FARAMETER HÜLEN 
| 10003 > 
10004 DATA 56 :REM SEE ; STARTADRESSE FUER DIE 
10005 
10005 DATA 165,045 :REM LDA $2D ; LOAD - RUUTINE AUS DEM 
10007 3 
i0008 DATA 232,002 :REM SBU #302 ; EHEMALIGEN BASIC-ENDE 
10009 =® 
106010 DATA 170 REM TAX ı ERRECHNEN UND DER 
10011 : 
10012 DATA 165.046 :REM LDA #2E ; LOAD — ROUTINE UERER- 
N. 10013 : 
10014 DATA 233,000 sREM SEC #+00 ; GEBEN 
10015 > 
10014 DATA 158 REM TAY s 
10017 : 
4OOlS DATA 169,000 :REM LDA #300 ı FLAG FUER LOAD SETZEN 
10019 : 
10G20 DATA 032,713,255:REM JSR $FFDS ı LOAD — ROUTINE 
100721 > - 
| 10022 DATA 037,051,197:REM JSR #0523 ;ı BÄSICZEILEN NEU BINDEN 
10023 & 
| 10024 DATA 185,034 :REM LDA $22 ° ; NEUES EASIC-ENDE ER- 
| 10025 : 
| 10028 DATA 164,035 REM LDY #23 ; RECHNEN UND ALLE BASIC- 
I 10027 
u 10028 DATA 24 :REM CLE ı FOINTER DARAN ANGSLEICHEN 
| 10027 ; 
i 100350 DATA 105,007 :REM ADE #702 3 
| 10031 : 
10032 DATA 144,001 :REM BCO #01 P 
10033 ; 
10034 DATA zZ00 :REM INY H 
10035 : 
I 10056 DATA 133,045 ;REM STA #2D A | 
1: 10037 : 
10038 DATA 137,044 sREM STY £2E 3 
I 10039 : 
| 10040 DATA 032,089, 198: REM JSR $0459 ı ELR AUSFUEHREN 
10041 : 
10042 DATA 078,118, 196: REM JMF £+6474 ; IN DEN READY-MÜRUS 
10043 3 
10050 : FÜR I = 378 TU 722 
10051 : READ A 


486 Gompurbs mib n 


tips & tricks 


PRINT"SFRECHENDEN FROGRAMM-"3 


10052 : F=F+räA 100674 
10053 : FOkE 1, A 1007& FRINT"ZEILEN (10000-109057) !":END 
10054 2 NEXT I 106080 PRINT"LSIE HABEN ALLE DATA-"5 
10055 ; 10082 PRINT"WERTE RICHTIG EINGEGE-"} 
100564 IFPF=S126THENIO0BO 10084 FRINT"BEN. DAS PRÜGRAMM WIRD"; 
10057 : 10090 FRINT"ALS REINE MASCHINEN-"5 
10080 FRINT"LWIHNEN IST BEIM ABTIP-"; 10092 FRINT"ROUTINE ABGESPFEICHERT!"S 
1006? FRINT"FPEN DER DATAZEILEN EIN”; 10100 FRINT"LEGEN SIE DIE DISKETTE": 
100684 FRINT"FEHLER UNTERLAUFEN!” j 10110 FRINT"BZW. KASSETTE EIN UND"; 
10070 PRINT"UEBERPFRÜEFEN SIE BITTE"; 10120 FRINT"DRUECKEN SIE "SPACE" !" 
10072 FRINT"NOCH EINMAL DIE ENT-"; 10130 FOKE198,0:WAIT178,1 
j 10145 2 
10150 5Y857809 "MERGE.CODE",8,1 : REM BEI EASSETTENBETRIEBE „.-,1;,1 
10160 FOKE?S1 , 166: POKE252 ,2: FOKE7E1 ,213:FOKE782,2 


10170 
10180 


FOKE7BRO,251:5Y56534976 


FRINT"LADAS FROBRAMM IST NUN”; 


10190 FRINT"’ALS REINES MASCHINEN-"} 
FRINT"FROGRAMM ABGESFECHERT!"3 


10200 





Datazeilen erzeugen 


Es gibtschon einige solche Programme im 
Umlauf, aber die meisten erfordern eine 
Unmenge von Dateneingaben, bevor man 
sie benutzen kann, oder man muß unbe- 
dingt ein Laufwerk besitzen, um das Pro- 


gramm „fahren“ zu können. Dieses Pro- 
gramm erzeugt die DATA-Zeilen und löst 
sich dann selbst freundlicherweise auf, 
damit man den Datensatz ganz normal — 
auch auf Kassette — speichern kann. Vier 


Eingaben sind erforderlich, damit das Pro- 
gramm richtig funktionieren kann — Num- 
mer der ersten DATA-Zeile, die erzeugt 
werden soll; Schrittweite; Anfangsadres- 
se und Endadresse des MSProgramms. 


PRINTER" :FORMeTOSREADDE PRINT" ereran" 065: INPUTDCM) SHEKT:GOSUBLS: TFLNCIE 


THEN STOR 


2LN=PEEK(BZ2IHZSCHPEEM. (823) : IN=PEEK(8243 : PE=STRECLNI LSLEHAPEI 


SRSSPEEK (S2SI+2SCHPEEK 326) !RE=PEEKLBZAI+ESEHPEEK“G2I) 


ARE= "RUND" Dear" +HRIGHTEAPE,L-15+" DATA "C=1:09=9 
SP=PEEKERSI FE=STRELP L=LENCPE) 


EDE=DE+RIGHTELPS,L-1 +", 10=041:08=C5HPRS=RE+HLIFRS 


. ?IF C<9 THENS 


BPS=STRELLSI L=SLENCPFI :DI=DEHRICHTECPE 
. AGNSLIBIE:PRINTRE:PÜKEE3L, 19: POKE632, 13: 
LBPRINT"eIF"  :FORM=LTOS:PRINTM:NEXT:O 


14PRINT"EIr"; :FORM=9T017:PRINTM:NEXT:GOSURIS ENT 
12HReNM/256 : LASNM-HAr/ZSE RETURN 

13LN=D69) : IN=DE LI ERS=DC2I :RE=DGI) :NM=REODSURIZPOKE, 
14NM=LN :O0SUB12:FOKES22, LH: POKE323, HA :POKES24, IN 
1SNMaRS :G0SUB12:POKES2S. LA: POKEBZE.HA RETURN 


K6FORM=1T0S:POKES3L+M, 13: NEXT: POKE6S1 19: POKE1S8; 


>RE THENRE="RUNIS"GOTOS 


«L-1 3: PRINTRE:LN=LN+IH 
POKE633, 13: POKEL9B.3: END 
QSLIBLS:PRINT"RLUNLL" END 


2a.LA:POKESZL,HA 


ta: RETURN 


17DATA ANFANSSZEILE. SCHRITTWEITE. STARTADR SSE , ENNADRESSE 





Acht BATA Bytes werden gelesen, das neunte Byte ist eine Checksumme, die beim Eintippen NICHT eingegehen wird, 


Coampute mip 


Aöh 





Ehemalige CGampteilnehmer wie auch 
Computing-Newcomer werden es glei- 
chermaßen begrüßen: Auch 1986 bietet 
das derzeit führende Computercampun- 
ternehmen in der Bundesrepublik, die 
Hamburger GompuCamp Gesellschaft für 


Computerferien und EDV-Ausbildung 


GmbH, wieder ein reichhaltiges Compu- 
terferien-Programm an. 

Von Anfang März bis Ende Oktober - zu 
fast allen Ferienterminen - sind jugendli- 
che Gomputerfreaks dazu eingeladen, 
sich in ein- oder auch mehrwöchigen Kur- 
sen mit der Welt der „bits“ und „bytes“ 
vertraut zu machen. Dabei hat man bei 
CompuCamp an Neuigkeiten und Verbes- 
serungen des seit Jahren optimierten Fe- 
rien-Programms auch in diesem Jahr 
nicht gespart, sondern im Gegenteil viele 
Verbesserungsvorschläge ehemaliger 
Teilnehmer kurzerhand realisiert: 

Neu sind zum Beispiel neben dem letztjäh- 
rig erfolgreichen Computercamp Ferien- 
zentrum Schloß Dankern zwei weitere 
Veranstaltungsorte, Tönning an der Nord- 
see und Veltishof/Titisee im Schwarz- 


wald, die sowohl nord- als süddeutschen 
Interessenten kürzere Anfahrtswege bie- 
ten. 

Neu ist auch das einmal mehr erweiterte 
Angebot an Gomputerkursen: Neben den 
Computersprachkursen (LOGO, BASIC 1 + 
2, Maschinensprache 1 + 2, Pascal) sind 
auch viele Spezialkurse (Spiele program- 
mieren, Datenfernübertragung, Hardwa- 
re-Basteln und Profi-Anwendung) zum 
Teil neu im Programm. 


vergleichsweise stabilen Preise (ab DM 
580,-pro Woche Vollpension) und die zu- 
gunsten konzentrierten Lernens begrenz- 
te Teilnehmerzahl pro Kurs. Letztere legt 
es eiwaigen Interessenten auch nahe, sich 
rechtzeitig noch einen Platz zu sichern: In- 
formation und Buchung via dem Gratis- 
Hauptprospekt „GompuCamp Gomputer- 
ferien 1986“ direkt bei Compubamp, Goß- 
lerstr. 21, 2000 Hamburg 55, Telefon (0 40) 
861255 oder 86. 23 44, oder in ausgesuch- 


Nur die bewährten Bestandteile des bom- 


puCamp-Pro- 
gramms blieben 
auch in diesem 


Jahr unangetastet: 
50 z.B. das vielfäl- 
fige Angebot an 
Freizeitmöglichkei- 
ten, die passende, 
komplette  Hard- 
und Software-Aus- 
stattung (ein Sy- 
stem pro Teilneh- 
mer für die Unter- 
richtsdauer), die 


ten Reisebüros. 








Misco f old Printer NEN 
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„Alles unter einem Dach“ - das ist das entscheidende Plus des 
neuen Micro Fold Printer Stands der Misco GmbH. Sowohl 
Papierzufuhr als auch Papierauswurf sind unter dem Drucker 
angeordnet. Darüber hinaus benötigt der Micro Fold kaum 
mehr Standfläche als der Drucker selbst. Mehrere Funktio- 
nen also in einem platzsparenden Kompakt-System. 

Die Öffnung des Papierauffang-Korbs nach beiden Seiten er- 
möglicht zudem einen leichten Zugriff zum Papier - auch 
wenn der Micro Fold an der Wand steht. Vorteilhaft erweist 
sich auch die um 22 Grad geneigte Standfläche. Sie erleich- 
tert den Blick auf den EDV-Ausdruck und sorgt gleichzeitig 
für eine reibungslose Papierführung zu den Papierfächern. 
Für 80-Zeichen-Drucker gibt es den Micro Fold in den Ab- 
messungen 39,5 {H) x 37 (B) x 44,5 (T). Er kostet netto DM 
237 ,--. Oder alternativ für 132-Zeichen-Drucker in den Maß- 
en 51,9 (H) x 37 (B) x 44,5 (T) Preis: DM 267,—— (netto). Ein 
30-tägiges Rückgaberecht, sowie schnelle Lieferung inner- 
halb von 24 Stunden nach dem Auftragseingang sind ein 
selbstverständlicher Service. 


Misco GmbH, Nordendstraße 72 - 74 
6082 Mürfelden-Walldorf 


Gesehen bei: 


Compute mie 


IK 





bücher 


Was fehlt auf Ihrem 
Bücherbora? ? 





































































‚von Karl- Heinz Koch 


Der Computer kann als mathematisches 
Mikroskop elementare Strukturen der 
Schöpfung und des schöpferischen Pro- 
| zesses sichtbar machen. 

Dieses Buch zeigt Schritt für Schritt, wie 
sich diese Möglichkeiten über Basic-Pro- 
gramme für künstlerische Graphiken aus- 
schöpfen lassen. 

Hierzu wird der kreative Prozeß in seine 
Baustappen zerlegt und daraus ein Ansatz 
entwickelt, Intuition in Regeln zu fassen, 
programmierbar zu machen. Die Graphik- 
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Das große EPSON-Drucker Buch 





von Holger Bullin und Hardy Straßenburg 


Das vorliegende Werk befaßt sich mit der 
Druckervielfalt der Fa. Epson, Düsseldorf. 
Es wird das große Druckerbuch genannt, 
da hier die z.Z. im Handel erhältlichen 
Drucker bei der Beschreibung und Erklä- 
rung berücksichtigt wurden. Die Autoren 
fraben den Inhalt des Buches unter den 
Leitsatz gestelit: 

Nutzen Sie alle Möglichkeiten Ihres EPSON- 
Druckers! 

Dieses Buch macht Schluß mit allen An- 
schluß-und Steuerproblemen, die es bei 
den verschiedenen EPSON-Druckern ge- 
ben kann. Als Computerneuling werden 
Sie in die einfache Handhabung einge- 
führt und erhalten einen Überblick über 
sämtliches Wissenswertes. Die Profis be- 


Imputer? 


programme gewinnen so ein eigenes We- 
sen und werden zum Ebenbild ihres 
Schöpfers. Nutzen Sie die Möglichkeiten 
Ihres Heimegmputers in Verbindung mit 
einem Nadeldrucker und entwerfen SieIh- 
re eigenen Bilder. Kunst kann auch bei Ih- 
nen einen Platz finden, und die Anregun- 
gen, die dieses Buch gibt, können Sie dazu 
verwenden, Ihrer Kreativität freien Lauf zu 
lassen. 

te-wi Verlag GmbH, München, 

ISBN 3-921803-56-X 


Gompufe mie 


kommen Tips & Tricks für weitergehende 

Anwendungen und eine Vielzahl von wei- 

teren wertvollen Informationen. 

Aus dem Inhalt: | 

- Beschreibung der Mechanik | 
und Elektronik 

- Technische Daien der ver- 
schiedenen Typen 

- Die Kommunikation mit dem 
Computer 

- Schriftbildsteuerung 

- Formular- und Grafikausgabe 

- Die Dip-Schalter und vieles 
mehr 


Data-Becker GmbH, Düsseldorf, 
ISBN 3-89011-139-4 
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In eigener Sache... 


| Der Tronic-Verlag ist seit dem 1. März in 
| ein neues Verlagsgebäude umgezogen. 
Bedingt durch den Umzug hat sich Adres- 
se und Telefonnummer geändert. Wenden 
Sie sich bitte an folgende neue Adresse: 


TAONIC-VERLAG GmbH 
Am Stad 35 

3449 Eschwege 

Tel.: 06651/30011 


Gleichzeitig weisen wir daraufhin, daß 
durch den Umzug einige Verzögerungen 
in unseren Service-Leistungen entstan- 
den sind. Wir bitten Sie an dieser Stelie um 
Ihr Verständnis und möchten allen Kun- 
den, die noch auf Antwort unsererseits 
warten, auffordern, sich mit uns in Verbin- 
dung zu seizen. 


Software-Überblick 


ich besitze seit längerer Zeit einen Home- 
computer und beschäftige mich sehr in- 
tensiv mit diesem Gerät. Z. Zt. habe ich ei- 
ne große Anzahl an Programmen und 
Zeitschriften, und das wird mit der Zeit 
ganz schön teuer. Durch die Vielzahl der 
Programmangebote verliert man aber so 
langsam den Überblick, und ich möchte 
Sie daher bitten, noch mehr neue „Profi- 
Software" inIhren Ausgaben vorzustellen. 
Listings habe ich jetzt genug. 

B. Wegener, München 


Redaktion: Vielen Dank für Ihre Zuschrift. 
Unsere Redaktion hat jaimmer ein offenes 
Ohr für Verbesserungsvorschläge. Leider 
müssen wir hier aber sagen, daß die Zeit- 
schrift „Gompute mit“ eine Listing-Zeit- 
schrift für die Gomputer-Anwender blei- 
ben soll. Unter der Rubrik ‚Was gibts Neu- 
es auf dem Softwaremarkt“ stellen wir ja 
regelmäßig neue Programme vor. Dieser 
Beitrag kann aber aus Platzgründen nicht 
weiter ausgebaut werden. Wir empfehlen 
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Ihnen deshalb eine neue Zeitschrift 
aktueller Software-Markt) unseres Hau- 
ses, die sich vorwiegend mit der Vorstel- 
lung des Software-Marktes beschäftigt. 





Verbesserungsvorschlag zum 
Programm „Raketenstart“ 
aus Heft 2/86 


Durch die nachfolgende Änderung des 
Programms müssen Sie mit dem Hub- 
schrauber zum Abladen des Treibstoffes 
zur Startrampe zurückfliegen. 


Zeile 870: IF PEEK (B) = 82 THENB=V: 
G0TO 750 einfügen 

Zeile 875: IF PEEK (B) = 67 THENB=V: 
GOSUB 1190: GOTO 750 


Das Zählen des Scores für anschließende 
Zeitgutschrift geschieht durch folgende 
Abänderung des Programms: 


Zeile 1160: SC=SC+ 20: GOSUB 2080 
Zeile 1200: SC=SC + 500: GOSUB 2080 
Zeile 1320: GOSUB 2080: RETURN 

Zeile 1370: SC=SC + 
: 2500: GDSUB 2080 


Zeile 2080: IF SC 1000 THEN CO=CO + 
10: SC = SC - 1000 
Zeile 2090: PRINT „SQQ|* TAB (24) SC 
„ıcursor links} {2*space} 
Zeile 2100: RETURN 

Oskar Standinger, Steyr/Österreich 


Redaktion: Die Redaktion bedankt sich für 
Ihren Verbesserungsvorschlag. 


„Lompute mit“ Computer-Glub 


Zunächst ein dickes Lob für Eure Zeit- 
schrift, die ich seit Heft 6/85 regelmäßig 
beziehe. Ich habe allerdings einige Anre- 
gungen: 

1) bessere Steuerzeichen und Gheck- 
summer für C-16/116 

2) mehr Kurse 


Gompute ni 


Tips & Tricks 
Gleichzeitig bedaure ich sehr, daß !hr Euch 


: | 3) wenn es geht, mehr von der Kategorie | 


nicht um Clubs kümmert. Vielleicht grün- 


det Ihr mal einen groBen „Compute mit“ 
Computer-Club? Desweiteren möchte ich 
wissen, ob man auch als Leser Artikel 
über Kurse oder Messeberichte bei- 
steuern kann. Markus Weigel, Karlsruhe 


Redaktion: Um Ihre letzte Frage gleich als 
erstes zu beantworten: Natürlich freuen 
wir uns über jeden redaktionellen Beitrag 
unserer Leserschaft und begrüßen eine 
Zusammenarbeit auf freiwilliger Basis mit 
unseren Lesern. 

Ein Checksummer für den C-16/116 ist in 
Vorbereitung und dürfte in kurzer Zeit 
auch für dieses System zur Verfügung ste- 
hen. Das Kursangebot soll demnächst 
noch erweitert werden, so daß wir der 
Meinung sind, auch auf diesem Gebiet 
noch interessanter zu werden. Die Katego- 
rie Tips & Tricks läßt sich kaum weiter 
ausbauen, da hier das Angebot an Infor- 
mationen sehr groß ist. 

Die Idee eines „Compute mit“ Computer- 
Clubs finden wir äußerst interessant. Wir 
möchten an dieser Stelle alle Leser auffor- 
dern, uns Vorschläge und Anregungen zu 
diesem Thema einzusenden. 


Beeinflussung des Fernseh- 
empfangs durch Homecomputer 


Nach Umstellung meines Homecompu- 
ters in einen anderen Raum mit installier- 
tem Antennenverstärker habe ich bei ein- 
geschalteten Computer einen gestörten 
Fernsehempfang. Welche Möglichkeiten 
bieten sich, für Abhilfe zu sorgen. 

Paul Oruyen, Wachtendonk 


Redaktion: Leider gibt es keine vollkomme- 
ne sichere Methode, um Fernsehstörun- 
gen zu vermeiden. Der Fachhandel bietet 
aber Entstörstecker oder Störfilter an. Die 
billigste Methode ist es jedoch, den Com- 
puter so weit wie möglich vom Fernseher 
aufzustellen. 
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Fortsetzung unserer 2-teiligen Commodore-64-Serie 


In der Betriebsroutine sind acht ASCII- 
Werte für die Funktionstasten festgelegt. 
Dadurch haben wir nur acht Funktionsta- 
sten zur Verfügung. Wir wollen nun versu- 
chen, die Anzahl der Funktionstasten zu 
erhöhen. 

Drei Tasten, Shift-, Commodore- und Gon- 
trol-Tasten, kann man als Zusatztasten be- 
zeichnen. Diese Tasten arbeiten nicht al- 
lein. Zusammen mit anderen Tasten stel- 
len die Zusatztasten Zeichen bzw. ASCH- 


Durch Kombination kann man im Spei- 


cherplatz 653 Werte von 0 bis 7 bekom- 
men. 


ı2 


119 far 


12m wedrkdtkl-2 


Werte aus anderen Feldern (Matrix) vor. 
Bei Tastenanschlag werden diese nicht im 
Speicherplatz 203 registriert, sondern in 


653 additive gespeichert. Deshalb ist es 
möglich, diese einzeln oder kombiniert zu 
betätigen. Tabelle 2 gibt einen Überblick: 


Tabelle-2£ 
Zusatztaste Werte in 653 Bit-Bild 
Keine a aaa Am 
shift 1 anan nadi 
Commodore Fe} anraa ga1d 
Control 4 Fana Aal 


Werte von Funktionstasten werden im 
Speicherplatz 203 abgelegt. Vier Tasten 
haben 4 Godenummern. Also 8 Werte von 


den Zusatztasten und 4 von den Funk- 
tionstasten erlauben uns, 8x4 = 32) 
Funktionstasten, zu bilden. 


in#= "3458"tprint"'" 
2a alj$=-"funktionstaste 
re+t"’rsa4#&="cantrolt" 
195 getasiKk 1=peekt 2BIYK2=peekt 652) on -iK = gute 
tag: ifa$="e"thenpr int"A" send 

x=t ta lensin#F>ion -tkl=valtmidk in$,x,1?> 
) gotal2finext xtgataide 


138 onxaoto2ag, 210,220 ,230 ,240 ‚250 ‚260 ,E70.,289,230 
‚2a ,310,320,238,349,350,35®2 

198 „ex -17:0nx90t0379,338 ‚390,490 ,4 10,300 ,4390,99%, 
450,450 ,470,43909.,.490,592,510 


So sieht unser Programm aus: 


"4ap&etshitftt"tagse"commode 


ISA getn1Pe 33 printassaasals’S'tigotolid 
iam : 250 printadsals"?"rgoto 190 
File) printals"?"igotaldß 370 printadsais" "zgatco lee 
zin printal®" *:gato LOA sag printadsal#"3"tgotoleg 

- 228 printal#"2"igotelüt zaA printad$als’5"tgotelß 
Fa 12) prints 1#"5":9ote 120 4a0 printafsadfait" "sgoto lfd 
eq4A printadsai®" "2g0t0 199 1m prints2$a4Sal8"1"igotolMd 
ez2a printaßsals’ltigoto tag 429 printacfFadsalr" "sgotaolfg 
zen pr intassal#"3"tgotala® 420 printapsadsal#"s"tigotoldd 
Sr pr inta@#a1#"3":g30to 100 4324 printadtassa l$"7"tgoteled 
zen printadsal#"?"igetoloe 45a pr intadstadsals"i"'gate 120 
299 printa3sals"i"tgoteiet Asa printagsadtals"3"igotolB0 
aaa printasgals"3":gotoled 37a pr inta3Fadsa1lF"5"tgote lan 
aig printadsals" "egotoll 420 printsssassädsalt"?7"igatoldR 
3PR pr intagta3#a 1#"7"tgoto 120 dag -printagfs2sadFals"l"!gotoldß 
230 printa2#a3sa1iF" "Yanto 1 Sag pr intasstassadsa 1#"3":gote 190 ni 
249 printadsastalt" 900198 s10 printaß$a3sa4dsa l#"5"igatol9d 


Gomsurbe miP 
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Zeile 10 definiert den Mutterstring, der 
aus der Tastencodenummer besteht. 
Zeile 100: Obwohl das Programm mit 
“ GetA$ beginnt, wird A$ nicht zum eigent- 
lichen Zweck gebraucht, sondern dann, 
wenn das Programm zu beenden wäre. 
Dafür wurde eine If,Then-Verzweigung 
benutzt, um den Befehl „END“ abzuschir- 
men. 

Durch Tastendruck werden auch die Spei- 
cherplätze 203 und 653 belegt. Für den 
weiteren Verlauf wollen wir nur damit ar- 


Wie Sie sehen, haben wir die Vorteile einer 
Arrayvariable ausgenutzt, nicht nur um 
Read.Data zu benutzen, sondern auch, 
um Logik-Funktionen voll einzusetzen. 
Der erste Faktor in A$(,) ist für die Zusatz- 
taste bestimmt. Der zweite Faktor zeigt, ob 
sie ein oder aus ist, Um das zu testen, ist 
die AND-Funktion am besten geeignet, da 

. sie wie ein Filter wirkt. Spalte Bit-Bild der 
Tabelle-2 ist sehr hilfreich, um zu sehen, 

_ welche Bits ausgefiltert werden. I in der 
Zeile 120 stellt den Stellenwert einer Zu- 
satztaste in der Reihenordnung des 
Read..Data-Verlaufs und die Bitnammer 
dar. Die Reihenordnung ist bewußt nach 
Bitnummer gestaltet. 


beiten. Darum definieren wir K1 und K2 in 
dieser Zeile, Wird keine Taste gedrückt, 
bleibt 203 mit 64 belegt. Der Programm- 
ablauf wird dann an den Anfang der Zeile 
20, also an „GetA$", gewiesen, 

Zeile 110 prüft die Angabe. DaK1 eine Zahl 
ist, kann sie nicht mit einem String vergli- 
chen werden. Deshalb muß die Valf)- 
Funktion eingeführt werden. Hier wird ein 
modifizierter INSTRING-Ersatz Befehl an- 
gewendet. 

Zeile 120: Hier wird der Wert von X aus 110 


18 
Feat | 
1] 
+2 
bei) 
ga bE="funktionstaste" 
gm a 


in#="39356" rpr int ’ a" 
for i=-8to3:readar i)2next 
data 7.1.3.5 


serie 
nicht gebraucht. Die Werte von Ki und K? 
werden kombiniert und an X übergeben. 
Zeilen 130/140: Den On X Goto-Befehl 
kann man in nachfolgende Zeilen weiter- 
geben, wenn der Wert von X davor modifi- 
ziert ist. 
Da wir in unserem Beispielprogramm kei- 
ne voltwertigen Programmteile haben, 


brauchen wir solchen Aufwand nicht. Wir: 


wollen nur testen, ob das Verfahren richtig 
ist. Folgende Ausführung zeigt, in wel- 
chem Maße man ein Programm straffen 
kann. 


forisdtocgtreada& i,lhzsnexti 
data "shift+" "commedere+", 


Bctei+ 


120 getsstk I=speeki Zr) ıKä=speeki Biä)ton-ikisädigote 
1OM: ifa$="a"thenprint "Si send 


1jiz for x=1 to lent in#)ion 
> gatsilfdlinext xz:geto ig 


—ElsyaltmidK in$,x ,135 


122 for i=B to Biprintaki,cKE and eti’ratidrinext 


tprintb$ack1l-33:goto 120 


Da die Codenummern der Funktionsta- 
sten und die Benennung nichtohne weite- 


res in Einklang zu bringen sind, wird Array 
A() am besten mit Read.Data gespeist. 


Weil aber nur ein einziger Wert von Ki aus der Reihe tanzt, kann man das Problem mit Hilfe von Boolscher Algebra in den Griff 


bekommen. 


Unser Beispielprogramm nimmt die folgende Endform an: 


tE in$= "3456 "2pr int "gg 

en feris@toßireadax i,1’inexti 
30 data "Shiftt","commodore+" ‚"ctrien 
aA : 
1a getäsiK l=speeKkt 23) KE=epeeKi 65 


SM: jfas=te"thenpr int" rend 


112 


for zei to lerfin$)ton 


I gotalPfinest "sgata1ld 


1lz2 for 


on 


147 


Z)zon-iKkli=sEdigeta 
Kl wallmid® in$,x,1)) 


i-d to 2Ziprinta® i,cKk? and etri)ratittinext 


ıi38 print"funktionstasste EFEKI-II-L-SHcKisFdigoteal 





Zum Schluß sei noch zu sagen, daß die zahlreichen mathematischen Gleichungen, die in einem Programm vorkommen, von Fall zu 
Fall vom Programmierer selbst entwickelt werden müssen. 
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Gompute enib 


7 


programme 






„Orion“ si 


_64-Fans aufgepaßt! 





den Monitor zurück. 


‚Dieses Weltraumspiel stellt höchste Anforderungen an Ihr Reaktio 





Der Chef der Raumfahrtpolizei beordert 
Sie und Ihre Besatzung mit dem Raum- 
schiff „Orion“ auf Patrouillenflug. 

Erst sieht alles nach einer ganz alttägli- 
chen Routinepatrouille aus, doch das än- 
dert sich ganz plötzlich, alsIhr Raumschiff 
einen feindlichen Raumquadranten er- 
reicht. Hier wimmelt es nur so von blut- 
rünstigen Piraten, die Innen und Ihrer Be- 
satzung das Lebenslicht ausblasen wol- 
len. Die sich Ihnen sehr schnell nähernden 
Angreifer sind nur mit der Protonenkano- 
ne zu stoppen. 


Die Orion wird von 9 verschiedenen Flot- 
ten, die jeweils aus 20 Flugobjekten be- 
stehen, angegriffen. Haben Sie mit Hilfe 
der Protonenkanone eine Flotte zerstört, 
werden Sie auch schon von der nächsten 
Angriffswelle attackiert. 

Um den Gegnern auszuweichen, können 
Sie Ihr Raumschiff durch einen Energie- 
schub derart beschleunigen, daß Sie mit 
Lichtgeschwindigkeit durchs All rasen 
(Joystick längere Zeit nach vorn drük- 


ken). Doch Achtung - Sie müssen höllisch 


aufpassen, um einer todbringenden Kolli- 


sion mit den feindlichen Flugobjekten zu 
entgehen. 


Eingabelips: 


Das Spiel ist in 2 Teile untergliedert. Um das 
Programm zu starten, muß Teil 1 geladen und 
mit „RUN“ gestartet werden. Teil 1 lädt Teil 2 
nach. Nachdem das geschehen ist, muß das 
komplette Programm erneut mit „RUN“ gestar- 
tet werden. Nach dem Lesen der Daten erfolgt 
dann die Einleitung. 


0 REM PER EEEEEEIE NE U U U Eu 2 2 2 2 2 2.2 2.2.0 20202 P 
> FEm sat FAST-THRUST PARTI ctee „173,0,127,240,131,169,35, 76,155 <158> 
2 REM ses Son Fa „ ea ee „t62 »2- 1 8? „4,1275 
. ı 1 & 32 1 <190> 
— E a) . 2 £ ı5- F F E} F a a3 L; q 
a 460871026637 : READA:= POKET ‚A: 5754 21313 110 DATA2O2 ,208,240,96,32,42,101,134,139 
35 IFS: 23041 1THENPRINT"FEHLERTSPACE} INT „138,10, 10,168, 185,5,127 290, 25,72 “29? 
SPACE3MASCHINEN-DATAS":END «2245 114 DATAS2,97,32,32,96,32,52,97 168,189, 
30 FORT=271341027255: READA: POKET „A: D=D+A 1 ,208,208,24,166,139,167,0,157,9 “1997 
NEXT ’ ’ ‚ns 2107: 112 DATA127,76,204,96,185,5,127,240,9,32 
5 - > “ Lo ” 
=0 IFDEFE2ZATHENPRINT "FEHLERISPACEITNISR a oe 32.52 “767 
Fa EPELIAL DATAS" END 113 T610,10,158,185,7,127,240,23,32,52 
ASE ı a , ö ‚97 ,32,136,96,32,52,97,168,185,1 <ö> 
&0 PRINT"£CLEAR WHITE SPACE3 RUSONSDERVS 11 4. 
BFFYISKISPALEIODERISPACE RVSONIKERVEBEL 4 DATA2OR, 208,5, 76,237 ,96, 166,159, 76,2 
ae SPALE BUSONSESRETTT 045 04,96, 185,8,127,240,246,52,52,77 +201> 
65 GBETAS: IFAs< >"D"ANDAF<>"K" THENSS 2207 > 115 DATAS2,163,96,76,21,97,165,157, 170,1 
70 L$="LOAD"+CHRE$ (354) +" FARTZ"+CHRE (39) <23A> 68,200,169,1,10,156,208,252 ‚169, 17 “109? 
gern THENL se" „B" Gar 116 DATA24,105,1,10,162,0,76,173,0,220,7 
30 PRINT"ICLEARIPIAA 10: PF2560 ,0: ";L$:Pü Bu 3,255,41,16,208,6,169 1,141 2252157 “ar 
KE198,4: FOKE&SL 19: POKE&SZ SEPOKEASS,13 228% 117 DATA96,173,25,127 ,240,250,169.0,1955 
G oeEesa zn ” - ’ 1755 25,127,162,4,189,3,208,240,5,202 <41> 
2 EM a TNEN-DATAB lan 115 DATA202 208,247 ,94,232,232,142,26,12 
n F 7,138,74,1608,169,1,10,136, 208,252 «1202 
io: Darnaa2,02127 170 Jun o non yaon ano | een 
+49, ’ ’ Ez Y Fi „28,127,168,1 „16,208,41,1 <153> 
SEN ARTE <ı85> 170 DATA240,12,173,16,208,13,27,127,141, 
oz DATAIS7,0,208 96.222 ,0.208,189,0,208 16 ,208,76, 167 ,97,178,27 127 37°, 250 2533 
= bear „2on 9677 en: ‚0, 121 DATA45,16,208,141,16,208,173,0,20B8,1 
104 DATA2OB,141 16.208,96 122.8 127 170 “> 78 ,26,127 „157 „0, 208,175,1 3208, 17 “B6} 
169,0, 208,201 81 ,208,19,152 Ale ———_  <202> I: DATAI „208 ,1B5,0. 106278 20,122 ,292177> 
‚Yr E ‚eis 37% 07 ,4,40,76, „97,40,144,28,1& x251> 
105 DATA208,240,13,173,0,127,240,174,16% 123 DATAO,173,26,127,172,27,127,32,32,76 
‚Dr 157 ,0,208,75,84,96,254,0,208,208 «795 „172,26,127,185,1,208,208,1,76,206 <98> 
1 & DATR220 152,15, 1622002722907 192° 124 DATA29,127,208,231,76,252,77,162,0,1 
„127,170,232, 7,0,208,201,33,176 <28> 73,26,127,172,27,127,32,94,96,172 <242> 
307 Dataiı ,173,0,127 290, 10 1770197 2183 125 DATA24,127,185,1,208,208,1,96,206,27 
0, 76, ‚Oo, 78; 05 ‚127,208,231,172,28,127,105,1,106 <168> 


108 DATA170,232,187,0,208,.201,246,144,10 


16 


Gempufe mi 


126 DATA74.141, 


29,127,144,26,172,26,127, 
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185,1,208,56,237,29,127,201 ,34,176 

127 DATA6,169,0,153,1,208,96,153,1,208,7 
6,51,.98,172,26,127,185,1,208,24,109 

128 DATA29,127,201,246,176,230,153,1,208 
»173,26,127,74,168,169,80,153,3,127 

127 DATA173,248,7,56,233,200,10,10,168,1 
75,26,127,56,233,4,10,170,185,16 

130 DATA106,157,9,127,185,17,106,157,10, 
127,185,18,106,157,11,127,185,19 

131 DATA105,157,12,127,169,32,141,30,127 
»96,173,30,127,208,1,96,206,30,127 

132 DATA173,30,127,201,16,176,16,105,24, 
141,1,212,173,30,127,208,235, 169 

133 DATA16,141,4,212,96,201,31,208,5,169 
„17,141,4,212,173,30,127,105,24,141 

134 DATA1,212,976,173,0,220,73,255,170,41 
„4,208,11,138,41,8,208,35,169,0,141 

135 DATA32,127,76,238,32,127,173,32,127, 
201,22,240,1,76,238,248,7,173,248 

134 DATA7,201,208,208,229,169,200,141,24 
9,7,76,173,98,238,32,127,173,32,127 

137 DATA201 ,22,240,1,96,206,249,7,173,24 
8,7,201,199,208,200,169,207,76,202 

138 DATA9B,173,0,220,73,255,41,1,208,24, 
2064,41,127,208,18,169,16,141,41,127 

137 DATA162,4,189,32,127,240,3,222,32,12 
7,202,208,245,96,169,1,141,45,127 

140 DATA173,248,7,56,233,200,10,10,168,1 
62,0,185,16,106,240,35,189,33,127 

141 DATA240,13,189,33,127,201 ,254,240,23 
‚254 ,33,127,76,67,99,189,52,106,14i 

142 DATA&0,99,141,65,99,173,33,127,240,2 
56,206,33,127, 232,200 ,224,4,208,710 

143 DATA95,162,4,189,32,127,240,38,222,3 
6,127,240,12,202,208,243,96,169,255 

144 DATA157,36,127,76,86,99,142,29,127,1 
89,47,106,141,114,99,189,0, 160,1 

145 DATA142,1.32,94,08 174,29 ,127,189,32 
„127,74,74,74,168,185,56,106,157 

146 DATA36,127,76,36,99,173,46,127,208,6 
»169,128,141,11,212,96,189,129, 141 

187 DaTatı, 212, 189, 0,141 ,46,127 ,76 162,1 
0,189,5,208,208,7, 202, 202,224 „2 „RCB 

148 DATA24S ‚96,142, 42,127,138,74,16B,200 
„132,139,173,1. 208,221 ,5 „208,176 

149 DATAIG, 32, 52, 97 „232, 32, 156, 96,76,205 
+99,32,52 „97, 232, 32,163,96,174,82 

150 DATA127, 173, ö, 208, 221,4, 208, 144,38,2 
40,61,173,16, 208,41 ‚1,208,19,32,52 

151 DATAY7, 152,45, 16 ‚208, 240.10, 32,32,97 
„232,32,32, 76,76,17, 100, 32,52 „97 

152 DATAZ32,32, ga, 96, 76,17,100,32, 52,97, 
152,45,16,208, 208,227, 173, 16,208 

153 DATnal, 1,208,230,76,234 99, 174,42,12 
7,76,164,99,175, 16, 208 ‚aust, 208,12 

154 DAras2, 52, 97,152, 45,1&,208,20B,195 +7 
&,17,100,22, 52, 97, 152, 45, 16,208, 208 

155 DATAZZ2,76,244, 7, 173, 30, 208, 170,41, 
3,240,3 ‚76,83, 103, 138,41,12, 208, 1 

156 DATASS, 138,41,240, 240, 250,238,47,127 
„238,43,127 ‚209,8,238,44 127,208 
157 DATAZ, 238,45, 127, 173, 47, 127, 201, 
08,3,76,63,101, 138, 41,4,240,5,189 
158 DATAO, 141,5 ‚20B,138, 41,8,240 ,5,169,0 
„141,7,208, 138, 74, 74,74,74,162,4 

157 DaTaiso, 8,74 ‚176 5 200, 200 ,202,208,72 
48,152,74,170, 202, 234, 134, 139,173 

180 DATAA ‚220,42,105,64,133, 162,152,74,1 
70,189 „248, 7, 56, 233, 208, 170,189,88 

161 DATA1OS, 240,89,201,1,240,80,201,2,24 
0,54,201 ,3,240,24,169 „88, 153.0,208 

162 DATAIES,162, 74,105,68, 153,1 +208,32,5 
2,97,152,13,16,208,141,16,208,9% 


20,2 


2067 
Tr 
<187> 
“29> 
“19895 
x174> 
“180> 
x72> 
x48> 
171> 
212> 
s64> 
x103> 
1897 
z221> 
x5> 
<171> 
»142> 
£197> 
Sa7rEr 
<179> 
“273 
»231> 
“141> 
<235> 
x238> 
-70> 
<125> 
s14> 
x230> 
zB2> 
<2532> 


“975 


x12> 
x117> 


x113> 


Programme. 


153 DATA169,1,153, 0,208,165,162,74,105, & 

4,153,1,208, 32, 52,77 ,152 ‚73, 258,45 

164 DATA16, 208, 141 16, 208,96,169,26,153, 
1,208,165,162, 153, 6, 208, 201, a8; 176 

185 DATA229, 165,162,74,144, 224 ‚76,194,10 

0,159,250 ‚76, 233, 100, 165,167, 74, 144 

16& DATA&. 74 ,144,171,76,205,100,74,184,2 
15,76,253, 100, 153,3, 208 ‚224,2,240 

167 DATAS, 167,4,76,33,101,169,8,73,255,4 

5,21,208, 141 „Di, 104, 96 „222 „4,127 

168 DATA>24, 2, 240, 5, 169, 4,76,56,101,167, 

8,13,21,208,141 ‚Zi, S08 96,32,68,229 

169 DATA162 ,8, 169, ö, 141 „a7, 127, 157 ‚7,208 
„202,202 ‚208, 249, 173 ‚252, 7,56,233 i 
170 DATA209,170,224,14,240,74,189,88,106 
,240,74,189,90,105,240,84,173,252 

171 DATA? „24, 105,2,168,56,233,209,170,18 

7,105,106,141,29,177,1897, 108, 10& 

172 DATA141, 44, 208, 141, 45, 208, 152,141,75 

2,7,141,253,7, 24, 105, i, 141, 254 17 

173 Daraıaı ‚255, 7, 173, 29, 127, 141, 46,208, 
141,47,208, 169, 1, 72, 32, 127, 100, 104 

174 DATAIO. 201, 16, 208, 246, 96, 189, 209,76, 
128,101 „173, 252, 7,24, 105, 1 „121 „252 

175 DATA7, 141 ‚253, 7 76, 134, 101,173,252,7 
,24,105,2,141,252,7, 141 „253,7, 141 

176 DATA254, 7,141, 255, 7,76,152,101,76,0, 
104,173,52, 127, 208, Bo, 173,3, 224 „201 

177 DATA129, 144, 1, 6, 173,4,220 ‚201, 255,1 

76,248,169,1, 141, ED, 127, 172, 4, 220 

178 DATA?7SZ ‚255, 133, 182, 7a, 41,248,24,105, 
75,191,53 ‚268, 173,4,220,42, 176, 17 

1737 DATAITZ,16, 208 „41,253,141,16, 208,159 
„1,141,2,208,.169,1 141, 51, 127, 76 

ıiB0 DATA173, 16, 208, 9,2, 131 ‚1&,208,169,81 
‚141,2,208, 169. O, 141, Si, 127 ‚96, 1723 

181 DATASı, 127 ‚240, ‚31.160, 2,152, 152,0,32 
»74,96,173,16, 208, 41,2,240,38,173 

182 DATA2 ‚208,201,81 208, 31, 169, 0,141,5, 

208,141 „s2, 127 96, 180 225 152, 162. „O 

185 DATASZ 32, 56, 173, is, 208,41 ‚2, 208,.7,1 
73,2,208, 201, 8, 2A0, 225, 173,4, 220 

184 DATAAZ, 133, 162,201 ,16, 17& 223,173,16 
„208,41,2, 2a0, 10, 173,2, 208, 201 „64 

185 DATA176, 208 ‚76, 130, 102,173,.2,208,201 
„16,144,199,173,2, 208, 41,7,208,1972 

18% DATA169 „4,133. 140, 173, 16, 208, 41,2,24 

0,5,169,32,76,155,102,169,0,133, 139 

187 DATA17S,2. 208,56, 233, 165,74,74,74,24, 
101,139,133,139, 173 135 208, 56, 233 

188 "DATass, 74, 74, 74,170, 165, 139 ‚24,105,4 

0,133,139, 144, 2, 230, 140,202, ‚208, 242 

189 DATA1EO, OÖ, 169, a2, 145, 139 ı96,169,0,14 
1,15,208,169,255, 141, 21 „208, 169, 150 

170 DATalaı i, 208, 189, 170, 141 ‚0,208,32,6 

3,101,76, 115, 103, 206, 87, 127, 208, 51 

191 DATAISS „197,201, a, 208, 26, 162,0,160,2 

55,232,208 ‚253, 136, 208, 250, 132, 198 

172 DaTaız2, 197, 165, 197, 201, 4 ‚208, 250,16 

4,32,141,67,127,96, 169, 1, 76,5,103 

193 DATAIT3, 31 „208, 41,1, 240, 3,76,8,104,7 

6,173,52, 127, 240, 47, 189, 17, 1a, 18 

194 DATA212, 173, 65, 127, >40. 19, 228, 65,127 
»173,66,127,141,15,212,201,20,208 

195 DATAS, 149,0,141,.65,127,96 206,66, 127 
„173,66,127, 141, 15, 212, 201,4, 208 

196 DATa2a2. 169,1, 76, 55, 103, 189 „0.141,18 
„212,96, 138, 41, z, 204. 3,208,3,76,8 

197 DATA1Oa, 138, 41,1,240,3, 7& ‚0,104,169, 

0,141,52, 127, 141,2, 208, 141, 3 ‚208 

178 DATA7&, #5, 100, 32, 189 „98, 32, 74,99,32, 

72,97,32,108, 3a, 32,220, 102, 32 74 

199 DATA9S, 32, 158,78,32,189, 36, 32,234,78B 


Sompute miß 


“2467 
<5r 
x170> 
x1B8> 
“104> 
xB35> 
“200> 
<x194> 
<11> 
«1745 
{6> 
2183 
x21> 
ı185> 
X74> 
xB2> 
x173> 


s10B> 


“11> 
“1895 
<1795> 
“A735 
<99> 
xa4> 
<171> 
2337 
<B0> 
<100> 
<B> 
<68> 


<1B&> 


19 





20 


programme 


„32,135,29,32,73,99,32,188,78,20& 

200 DATA&4,127,208,11,169,4,141,64,127,3 
2,157,99,52,54,100,206,63, 127,208 

201 DATAB,159,3,141,63,127,32,207,101,32 
„74,99 ,32,14,103,32,25,103,162,0 

202 DATAISO,3,7232,208 ,253,13&,208,250,7& 
„115,103,0,0,0.0,0,0,0,0,0,0,0,0 

203 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,05 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

2654. DATAO,0,.0,0,040,141,29,127,138,41,24 
0,208,3,76,54,100,162,238,154,76 

205 DATA22B,167 

300 REM SPELIAL-DATAS 

301 DATAO,11,15,7,19,6,15,18,0,26, 14,18, 
18,6,14,7,0,04149,1,05,170,1,0,0,0 

302 DATAL,0,0,1.0,0,.0,1,0,1,0,1,0,1,0,0, 
0,1,1,0,32,94,136,163,34,33, 36,35 

303 DATA2Z3?,732,213,192,174,156,158,121, 
105,71,79,69,61,54,48,43,398,34,30 

302 DATA27 ,24,21,18,15,12,10,8,6,5,4,3,2 
1,2.3543,0,2,1,4, 331 72,0,3,43,% 

305 DATA7 ,4,8,10,3,2,13,12,14,15,7,10,4, 


z,8,15 
_ Teil 2: 


ERKENNEN ER EN 
auuansaee FAST THRUST HEHE 
KEHKKEHITHFR HH HT HERE N HH TE HI 
* CORYRIGHT 1795 DILLINGERSOFT * 
PREREEREREELTERn 3 00 2.2 202.2 2 0 02.2.0202 
** WHRITTEN BY KLAUS DILLINGER ®* 
PRREEERDUTE LEE 2 2 0 2 2 20 2 202 2 2 2 2 202 2000 
RRRHHHSHHHIHHHHIIHHHHOHEERR RE 
*x# FRISCH AUS DILLINGERS'S er 
RI E 
REM k###### TELESFIELFÄBRIE eK 
BEM HH EIIEHHEEERFIEN 
Vesz2ag: P=54272: FOKEV+33 „0: POKEV+32,0 
FOKEF+24 ,15: POKEP+5, 0: FGEEP+6& „240: FOK 
EP+B,10: FOKEF+12,0: POKEP+13,55 

82 FOKER+17,0: FOKEF+20, 240 

94 FRINT"ILIG.REB CLEAR DOHNAF"TABEN" — 
Tr —  — en, a” - 

92 PRINTTARL{FI"JISPACE HHITEFFISPACEFATZ 
PACEFSTSPACEIT-TISPACEFHISPACEFRISPAGESU 
ISPACEFSISPÄCEITISPACE LIG-REDFT" 

94 FRINTTAB(FI"TGREENS 


19 REM 
REM 
REM 
406 REM 
REM 
REM 
REM 
741 REM 
REM 
REM 


























7& FRINT"{DOKH4 SPACE? WHITESÜCOFYRISHTÄZ 


PACEY 1FBSISPACEHDILLINGERSOFT* 

98 PRINT" <DOHNE SPACELTIFALLTSPACEIRIGHTS 
{SPACEFRESERVED" 

100 FORT=128001014463: READA: FÜKET ‚Ar 5=5+ 
A:NEXT 

102 IFS< >73019THENPRINT"FEHLERTSPACEFINT 
SPACEISPRITE-DATAS" END 

105 PRINT"{HHITE CLEARFIHRISPACEITCHEFISR 
ACE>VON{SPACE}DER {SPACE FRAUMPOLTZEI (SPAC 
E}MEINT „ {SPACEIDASS" 

107 PRINT"SIETSPALE? IHRENISPACEIDICKENTE 
PACE 3b on TSPACEFRUHIGTSPACEIMALTSPACEIW 
IEDER" \ 

109 PRINT" {DONNF IM{ISPACEIALL{SPACEIRUMSE 
HAUKELN{SPACEIKOENNTEN, {SPACEISTATT" 

411 PRINT" {DOHNFYSTAENDIBLSPACEIDIE SPACE 
+LUFTISBACE} IM{SPACEFHAUPTBUARTIERTSPACE 
+zUu" 

113 PRINT" {BCHNIVERPESTEN. £SPAGEISTELSPA 
CEIMACHENSPACEISICHTSPACEIMITESPACEF IHR 
EM" 

115 PRINT" DOWN>KLEINENISPAGEIBRUENENSEPR 









































«251> 
£13> 
<t4> 
<161> 
<1745 
21? 
x94> 
<97> 
<167> 
268> 
«140> 
<150> 


“2287 


Aizir 
A195 
Ai1Al> 
36 
#161 > 
<i75r 
“1817 
“18er 
5151> 
2184: 
1575 
x1dar 
x1517> 


“15377 
“2195 


Dar De 


212 


SBF> 


«10977 


«191> 


995 


x15> 


ACEFRAUMSCHIFF {SPACE} "DRECK" 
117 PRINT" {DOKNFSCHLEUDER " {SPAZE} ESDIERA 





CEIGENANNT , (EPACEIWEILTSPACEI IHR{SPACEFR 
[18 U 2 

117 PRINT“ {DOHNFSCHIFF{SPALEINICHTSRACEH 
WIEISFACEIEINEISPACEHTISPACEFUETZPACEFVE 
SPACE WERKSTATT" 

ı21 PRINT" CDOKNF EITSPALCEFVETSPALEIVTSPAL 
E}={SPACE} INTERGALAKTISCHERTSAACRFUEBER- 


1} 




















12% PRINT" £BOHN:WACHUNGSVERE IN) TSFAGE3 VO 
NISPACEI INNEN SPACEHBESEHENTSPACEIHAT. 3" 
124 PRINT" {EGENFAUFLSPAGEIDENTSFACEIWEG. 
LSPACEIWIE SPACE} IMMERTSPACEFSCHALTENISR 
ACEISIE" 

1253 PRINT" CDONNIWIEDERISPACEFAUFISPACEIR 
UTOFILOT-SIETSPACEIFAULERTSPAZEISACK. VG: 
GSUBS3O 

127 PRINT"SIEISPACEILEHNENISPACEISICHTSR 
ACE3 ZURUECK TSPACE FUND (SPACEI SCHENKEN" 
129 PRINT" IDOHNFSICHLSPACEIERST TSPACEFMA 
LESPACEIEINTSPACEIKUEHLESTSPAGEFBIERCHEN 


u 





























131 PRINT" CDOHNF "REDISPACEINOSE " TSPACE>E 
IN. {SPACEIDABEI{SPACEIDENKENISPACEFSIETS 
RACE" 

133 PRINT" IDGES>DARLEBERTSPACEFNACH, 1SPA 
GCEIWIETSPACEFESTSPACE} IHNENT{SPACE+DIESMA 
L" 

135 PRINT" DOHNIWIEDERISPACEIGELUNGENTSR 
ACE> IST , {SPACEIDIETSPACETZTSPACEFKASTENT 
SPACEIBIER" 

137 PRINT" CDOKNFBURCH{SPACEIDENTSPAGEFRE 
UMHAFENZOLL{SPACEFZUTSPALEIBRINGEN" 

1397 PRINT" {TDOHNS (VERWANDTESPACE3BEIMISR 
ALE> TOLL{SPACEISIND{SPACEIMANCHNAL SPACE 
>HOCH" 

141 PRINT" {DOHNSGANZLSPACEINUETZLICHI „25 
PACEISEITLSPACE} LOTSPACE>MINUTEN{SPACEID 
RINGEN" 

143 PRINT"BERAUESCHELSPACEIANISFACEF IHRE 
{SPACE FLAUSCHER ‚ {SPAGEIDIETSPACEISICHTSR 
ACE}F" 

145 PRINT" {DOHNIANHDEREN „ TSPALEFALSTSPÄAC 
EIWUIERDE{SPACEFSICHTSPACE} IHR{SPACEITRUN 
k- Li} 

147 PRINT" {DORHNFSLECHTIBER{SPACEIRÜBOTER 
{SPACEFÄANTSPACEY THRENTSPACEFHEISSBE-" 
149 PRINT" {DGHNILIEBTENTSPACE I BIERVORRAE 
TEN{SPACEIVERGREIFEN" 

ı51 GOSUBS3SO 

153 PRINT"ALSTSPAGLEISIETSFACEISICHTSPACE 
3ENDLICHTSPACEFAUFRAFFENTSPACEIUND{SPÄCE 
DEN" 

155 PRINT" {DOHNFGERAUESCHEN{SPACE>FOLSEN 
„TSPACEISEHENTSPAGEISIETSPACEIES. 

iS57 PRINT" {DOKNF IHRE{SPACEFFUSSNARGELTSER 
ACE3BEGINNEN{SPACEFSICHTSPACE} ZUISPACE}" 
159 PRINT" {BOHNFKRREUSELN „ TSPACETDENNI{SP 
ACEIALSTSPACEISIETSPACEFDENTSPACEIKUEHLS 
EHRANK” 

161 PRINT"GEFFNEN, {SPACEFGRINST{SPACEISI 
EtSPACE}IHR{SPACE}TTRUNKSUECHTIBER" 

163 PRINT" {DOHNROBOTERTSPACEI AN, SPACE} 
DER{SPALEIGERADETSFACEIDIETSPAGEYLETZTEE 
SPACEI” 

145 PRINT" {DOHNYFLASCHE {SPACE} IHRES{SPAC 
EIKOSTBAREN{SPACEINASBESTSPACE> INTSPALE} 
SICH" 

187 PRINT" C{DOHN>HINEINGESCHUETET{SPACE>H 
AT. {SPACE} IHRTSPACEHERSTER {SPACE} GEDANKE 


1689 PRINT"IST=2{LIG.RED SPACES RVSON SPAC 














































































































Gempufhe mik 





106% 


AIFF 


x1i247 


“745 


“21235 


“124° 
<199%> 


2083 


<1993> 
<162> 
775 
+78> 


837 
“114> 
<BB> 
S227> 


z100> 
<32> 


“22097 


<169> 


ATSr 
“197775 
<71Fr 


“218> 


48 


4/86 


ZIWRVSDFF SPACE RYSONIPISPACEIF WIRVSOFE 
epnce RYSANIFTSPACE AFSOFF SPACE KVSON 
SPACE RVSOFF SPACE RVSEDN SPACE RVSOFF SP 


173 PRINT"{SBACHS RYSON SPACE2 APSOFFIFL 
SPACE AVSOH SPACEZ RYSO RYSBFF SPACE RUSON SP 
ÄACE RVYSOFF SPACE2 RVSGH SPACEIMTSBAGE Ay 


SDFF SPACE RVSON SPACEIMERVSOFF SPACE R 
VSONIMERESOFEI" 


FF SPACE RVSOH SPACE RVSOFF SPACEFTHRVSG 
M SPACE RESOFF SPACE RVSION SPÄCE RVSOFF 
SPACE RVSON SPACE AV: RUSOFF SPÄCE R AVSUON SPA 


CEZ RVSOFF SPACE2 RVSEOHR SPACE RVYSOFFY":G 
G5SLHB3ZO 

177 FRINT"STSPACE3MINUTENTSPACETSPAFTERT 
SRACEFSEHENTSPACEISIETSPACETWIELSPACEIEI 
N" 

179 PRINT"I TDOWNIROBOTER{SPACEIIM{SPACHIA 
LL{SPACEFLANGSAMTSPACE3VONTSPACEI IHNENIS 
PACEFWER— 

181 PRINT" {DOWN} TREIBT{SPACEI (NUNTSRACE? 
RATEN{SPACE}ISIECEPAGEIMAL, {8 TSPAGEIWERLSP. SPA 
CE} IHNTSPACEF IN" 

195 ann DOHN>DIETSPACEHLUFTSCHLEUGE TS 
PACEIGESTOSSEN{SPACEIHÄTISPACEH?} . 

185 PRINT" (DOHN2IWAEHREND LSPÄLE } IHRLSPAC 
EIRAUMSCHIFFISPACEIFKURSTSPACEI AUF" 

187 PRINT" SDOWHFJASWALSPALEIHAELTISPACEN 
{HABTSPACE} ICHTSPACEIDATSPAGEINICHTISPAC 
E3EINEN" 

18% FRINT"{DOHNSVETTERTSPACE3BEIMISRACE 
ZOLL) ISPACEISTÜERTISPACENSIETE PACEITHRIS 
PACEFBORD-" 

3971 FRINT"SDO#HICOMPUTERTSPATEIBEIMISPAC 
E3REINZIEHENISFACEIDERISPACEINELESTEN® 
193 PRINT” SDOUN> SOFTWARE TSPACEIVONTSPACE 
+DILLINGERSUFT. * 

195 PRINT" {DOENYDIESE {SPACE }STDERUNGBCSPA 
CE}QUITTIERENTSPACEISIETSPACEIMITE SPACE} 
EINEM" 

177 FRINT"{DGHNIKRAEFTISENT SRACEITRITTIS 
RACE} IHRER SFACEFEPRINGERSTIEFEL"sBOSLGS 
30 

199 PRINT"IDOHN] GEGENTSPACEIDENISFACEIHA 
UPTSPEICHER SPACE" IHRES ÜSPACEHCONFÜTERS. 









































201 PRINT" (DOHNIALSTSPACEISIET SPRACHE FAUFL 
SPARTE FDENLSPACE MONITOR LSPAUEFSCHANENTSR 
ALE I} BEMERKEN" 

203 PRINT"SIE, iSPALEIDASSISFALEI THRISPAC 
EISCHIFF (SPACE IAUF CSPACETDEMISPACEIWEGTS 
PACEINACH" 

=03 PRINT" {DBANFIASWATSPACEFEINENISPACEI 
FEINDLICHEN {SFÄACEHRAUMELADRANTEN" 





07 PRINT" TDOSN>BURCHFLIEST. ISPACEIDIELS . 


PACEFFÄRATEN{SPACEYSINDISPACEI ZWARTSPACE 
FNGCH"® 

207 PRINT" (DOWN AUSER{SPACEISCHUSSWEITE, 
tSPACEFABERSPACEISIETSPACE KOMMEN SPACE 
3" 

zıı PRINT" {DOMNFSCHNELLCSPACEINAEHER. {SP 
ACE3BEI {SPACEIDEN{SPACEIPIRATENTSPACEIBE 
FINDET" 

21% PRINT"SICHTSPACEFAUCHTSPACEHEINISPAC 











SZ20I >} 


“2067 


“118: 


br: 


“114> 


1895 


1285 


“945 


<x91> 


<135; 


<7A> 


<4B> 


“2295 


x<108> 


esbr 





‚programme 


E’MINENLEGER, TSPACEIUMISPACEIDIETSPACHIR 
IRATEN”" 

*15 FRINT"ABZUWEHREN{SPACEHMULESSENISPACE 
3SIETSPACEIDIETSPACEISCHIFFEISPACEIDER" 
217 PRINT" IDOHNFRAUMPIRATENTSPACEIMITISP 
ACE} IHRERTSPACEIPROTONENKANDNE" 

217 PRINT" {DOHN? ZERSTOEREN. ": SOSUBZIO 
221 PRINT" {DO#N33 ZURTSEPALEISTEUERLUNGB SPA 
CE} IHRES TSPACETRAUMSCHIFFESTSPACEISTECKEN 


























223 PRINT" DOWNISIETSPACEIDENTSPACEITOVS 
TICKTSPACEI INTSPACEFPORTLSPACEIZ" 

225 PRINT" {DOWN>WENNISPACEISIESPACEIDEN 
TSPACEI JGYSTICK{SPALEINACHTSPALEFVORNE" 
227 PRINT" {DOWNIDRUECKEN, {SPACE} SDESPACE 
IGEBEN{SPACEISIETSPADEISCHUB. " 

270 PRINT"{YELLON DDWNS SPALELTIVIELLSPA 
CEISPASSTSPACE}WUENSCHT" 

280 FORT=0T0200:6=G+1: IFG=-4THENG=1 

285 PRINT"CHOHE DOWNI8}" : ONGBOSUBS00,310 
„320: NEXT 

290 GUTOSBO 

300 PRINTTAB (6) "ILIG.REDIK{LIG.GREENI«TY 
ELLOWIKLLIG. REDI#CLIG.GREENIRLYELLONIRTL 
IG.REDIRLLIG.-GREENFHAYELLONIHTLIG.REDIRT 





EIG. GREENFHLYELLOWIRLIG.REDIRTLIG.GREEN 
SRiYELIOHFHLLIG.REDIRLLIG. GREENIRLYELION 
F#4LIG.REDI#TLIG. GREEHIHTYELLOHIRLLIG.RE 


DILL IG .GREENTHCTELLONS#TLIG.R: EIG -REDIHILIG,G 
REENI#FTYELLOWIKTLIG.REDF#TLIG.GREEN?«® 

s01 FRINTTAB (6) "{LIG. GREENIHISPACE LIG.G 
REENIDISPACEITISPACEILISPACEILISPACEF TS 
PACEINISPACEIGTSPACEHETSPACEIRISPACEISTS 
PACE?DESPACEIFISPACEITISPACE LIG.GREEN)«* 








302 PRINTTAB<(A) "LIE. GREENI#K{LIG.REDI={Y 
EELLOH>s#{LIG.GREENIH{LIG. REDI#TYELLOWIRTL 


IG.GREENI#{LIG REDIHTYELLOWNSKLLIG. GREEN}: 


#{LIG.REDIR{YELLOWI#{LIG_GREEN>#LLIG_RED 
BHiYELLOHTHLiLIG, GREEMIRLLIG, REBDIHLYELLOR 
+8 CLIG.GREENI#{LIG.REDI#LYELLORIKILIG.GR 
EENSR{LIG.REDIHLYELLOWIRLLIG GREEN» CLIG 
„REDI#{YELLDOWISHLLIG. GREENIKLLIG. REDIRn 
303 RETURN 

310 PRINTTAB (6) "{LIG.GREENIRLYELLOSHRLLZ 
G-REDIRTLIG .GREENIACYELLONIMLLIG.REDIKIL 
IG.GREEN}«(YELLONISCLIG.REDIKTLIG.GREEN) 
#IYELIOHIHLLTG REDIHLLIG GREENSSIYELLOM 
#{LIG REUIRÄLIG -GREENIRTYELLONIsLLIG. RED 
3#R{LIG GREENY#TYELLONIHCLIG.RED>#ELIS GR 
EENI#LYELIOWIS{LIG-REDI={LIG.GREEN>HLYEL 
LOR3K{LIE. REUS®{LIG „OREENIRLYELLDUr«" 
311 PRINTTAB({A) "{LIS.REDIRLSPACE LIS.GRE 
ENSDISPALEITISPACEILTSPACEHLISPACEN TISPA 
CEINISPACEIBISPACEIELSPACEIRISPACEISCSEA 
CEIDISPACEIFISPACEITISPACE LIG_REDIR" 
312 PRINTTAB(&} "{LIG.GREENIRCYELLOWIRLLL 
G.REDI#{LIG GREENTRTVELLOWSKLLIG.REDIR CL 
Jö. GREENFRLIFELICHIRTLIG,. LIG.REDIHLLIG, SAREHT 
*IYELLOWI#LLIG.REDIKLLIG.GREENIRLVELLON} 
#{LIG .REBIR{LIG GREENIKLYELLONI#LLIG.RED 
IR{LIS GREENFHIYELLONI#TLIG.REDIRLLIE.GR 
EENISIYELLOWSHLIG.REDIHTLIG.GREENIHTYEL 
LOW {LIG REDIR{LIG GREENTRTELLONIR" 
313 RETURN 

320 PRINTTAB{6) "CYELLOWIRTLIG.REDIRLLIG. 
GREENIH{YELLGWS«TLIG.REDI#CLIG.GREENIRtY 
ELLOHIRCLIG.REDI#LLIG. BREENISLYELLBNI EL 
IG.REDI=LLIG.GREENFRTYELLONI«TLIE_ RED? 
LIE .GREENIS{YELLOMF#TLIG_REDIHLLIC, GREEN 
I#tYELLOWI#{LIG.REDIHLLIG.GREENIRIYELLOH 
I={LIG.REDIR{LIG GREENI#CHELLORIKLLIG.RE 
DI# LIE GREERIKCYELLOWRI#TLIGS-REDI«" 











Sompube mif 


 x104> 


“118> 


<äb> 
<170> 


x150> 


x2> 


x1525 
SZO0> 


<x1645 
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programme 


321 PRINTTAB(A) "{LIG-GREENIFKISPACE EIG,.6 
REENID{SPACEITISPACEHLTSPAGEILTSPACEHTES 
PACEIN{SPACEIB{SPACEFETSPACEIRESPACEISES 
PACE>OTSPACE}F{SPACEITISPACE YELLEHY®" 

322 PRINTTAB{63"{LIG.REBIKILIG.GREENS#Y 











1 16.GREENY#{YELLOW+#{LIG. REDIKCLIG. GREEN 
Y#{YELLOHIRTLIG.REDY#{LIG.GREENS#LYELLON 
3#{LIG.RED3S{LIG.-GREENF*TYELLOWNI#{LIG.RE 
DIR{LIG-GREENIHIYELLOWIHTLIG- REDI#{LIG.G 
REENIS#{YELLOWS#TLIG.REDI#TLIG. GREENF®" 
323 RETURN 

350 PRINT"{RVSGOHN HHITE>RETURNTRVSDFF Ur} 
335 BETA$: IFAS< >CHRS$ 13) THENSSS 

340 PRINT"{GLEARY "5 RETURN 

380 FORT=325121032592: FOKET ,„O:NEXT:FOKEP 
+23, 15: POKEVr44, 10: POKEV+45,14 

zB4 POKES2577 ,0:POKE32578,17 

385 POKEV, 170: POKEV+L, 150: PDKEV+8 ,50: FOR 
EV+9,2443 POKEV+11, 244: POKEV+H10,650 - 
386 POKEV+12, 50:2 POKEV+14 „607 POKEV+13,30: 
POKEV+15,30: POKEV+16,32+128B 

397 FOKE7O40,200: :POKEZO41, 225: POKE2042,2 
08: POKE2043 „208: POKEV+Z „Or FOKEV+3,0 

- 288 POKE?044 , 209: FOKE2045,209: POKE2045 ,2 
10: POKE?047 ,210: FOKEV+45,14 

39? FOKEV+21 „255: POKEV+39 „3: POKEV+40, A: 
DEEY+41, 13: FOKEV+42 , 13: FOKEV+435 „10 

590 FOKEV+21 „255: PRINT" {CLEARS "2 SH=3:A=0 

: POKEV+30 ,0: POHEV+31 ‚0: 5Y5264@8: 23 
400 FOKEPR+Z4 ‚0: SH=5H+1: 5C=PEEK (32555) +PE 
Ek {32556} 8 P56+PEEK (323957) #536 
410 CC=INT (80-8) 7100) : SH=SH+CC 3: A=SC-100 
*C5 
420 IFSH=0THENSOO 

30 POREV+EI „Or PRINT" LCLEARISIETSPACEIHA 
BEN" SH"SCHIFFE {SPACEIUND(SPACEFERREICHTE 
per - 

440 PRINTSC'"FUNKTE{DORHE}" 
450 PRINT" CRFSONIRETURNIRVSOFF}":FOREITFE 

[9] 

7 

460 GETAFS IFA#X >CHRF IS) THEN4SC 

470 PRINT" {CLEARF" = FORT=V+STOV+15:POKET, 
0: NEXT= POKEV+30,0: FOKEV+F1 ,O: FORKEF+Z4 , 15 
475 POKEU+2 , 0: POKEV+3,0: FORT=OT03: POKES2 
544+T ,„O:2NEXT 

290 SYSard096+5#256r1Zrl1örlü: 

470 GGT0400 

500 FOKEV+21,0:PRINT"IGLEAR DOWNT SPACHS 
+SIE{SPACEFHABEN SPACE} VERLOREN. ® 

5i0 PRINT"LDOKK SFACEZFSABERTEFATCEHDASTSR 
ACEIMACHTISFACEFGARTSFACEINICHTE,, {SPACE> 
DENN" 

23 PRINT"IDOHN SPACEZFSIETSPACEHKDENNEN 
SPACEFESISPALEFTATSPACEFNDEHTSPAGEIMALG 
SPACE VERSUCHEN" 

530 FRINT"{BOENFISIETEPAUCEFERRE ICHTEN"SC 
IPLNKTE" 

540 PRINT" EDEHNS SEPACEFNOSCHMALTSPACEISPI 
ELENISPACEI=IEBFACE RYEGRINIRVSOFF SPACES 
+AUFHDEREN={SPACE AVSONIATAFSOFEF" 

550 GETAS: IFAS<CF"A"ANDASS >" N"THENSSO 

Sa0 IFA$="N" THEN3SO 

377 END 

5000. FORT=OTI100: SYS56#4076+7#206+16+97: NE 
AT 

z20000 REM SPRITE-DATAS 















































20001 DATAG,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,24,0,0,23,0,0, 24, O, 0, &0,0,0,60,0 
206002 DATAO, 126,040, 126, 0,0 ‚255,0, 0,255, 
0,0,255,0,0,0,0,0.0,0,0,0,0,0,0,0,0 


<62> 


1265 
<210> 
<Ba> 

154> 
x216> 


-121> 
1127 


A743 


SFr 


20003 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,1,128,0,1,192 
20004 DATAO,0,248,0,0,127,0,0,127,128,0, 
127,0,0,62,0,0,60,0,0,56,0,0,15,0,0 
20005 DATAO ,0,0,0.0,.0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
20006 DATAO,0,0,0,14,0,0,62,0,0,254,0,7, 
254,0,7,254,0,0,254,0,0,62,0,0,14,0 
20097 DATAO.0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,040,0,0,0,0,0 
20008 DATA0,0,0,0,0,15,0,0,56,0,0,60,0,0 
‚62,0,0,127,0,0,127,128,0,127,0,0,248 
20009 DATAO,1,172,0,1,128,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
20010 DATAO,0,0,0,0,0,0,0,0,0,070,0,0,0, 
0,0,255,0,0,255,0,0,255,0,0,12&,0,0 
20011 DATA126,0,0,80,0,0,50,0,0,24,0,0,2 
4,0,0,24,0,0, 0,0,0,050,0,0,0,0,0,0 
20012 DATAO,0,0 ‚0,0,0,0,0,0,0,0,0,0,050, 
0,0,8,0,0,28,0,0, 0,0,0,124,0,0,254 
20013 DATAO,1,254,0,0,254,0,0,31,0,0,3,1 
28,0,1,129,0, 0,0,0,0,0,0,0,0,0,0, 
20014 DATAD,.0,0,0,0,0,0,0,0,0,0,0,050,0, 
0,0,0,0,0,0,0,0,0,0,0,112,0,0,124,0 
20015 DATAO,127,0,0,127,224,0,127,224,0, 
127,0,0,124,0,0,112,0,0,0,0,0,0,0,0 
20016 DATA6,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,03,0,0,0,0,0,1,128 
20017 DATAO,3,128,0,31,0,0,254,0,1,254,0 
„0,254,0,0, 124 ,0,0,60,0,0,28,0,0,8 
20018 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
20019 DATAO,0,0,0,050,24,0,0,24,0,0,0707 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
20020 DATAO,0,0,0,0,0,0,0,0,0,0,0,0 
20021 DATA0,040,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,3,0,48,3,0,48,3,12,48,3,12,48 
20022 DATAS,30, 48,3,30,48,3,158,112,3,25 
5,240,3,127,176,3, 30,48,0 ’s1, 0,0,97 
20023 DATA1L28,0,0,0,0,0, 0,0, 0,0,0,0,0,0% 
0,0,0,0,0,0,0, 97, 128,0,51,0,3, 30,48 
20024 DATAS,127,176, 3,255,240,3, 158,112, 
3,30,48,3,30,48,3,12, 38,3,12,48,3,0 
20025 DATA48,3,0,48, 8,0,0,0,0,0,0,0,0 .ö; 
0,0,0,0,0,0; 0,0,0,0,0,0,0,0,050,0,0 
20025 DATAO,0,0,0,0,0,0,0,0,1,1,128,1,13 
1,192,3,197, 224 ,5,285, 198. 11,258,159 
»0027 DATAS, 255,198,3,199, 224 ,1,131,192, 
1,1,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


20028 DATAO.6,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0, 0704071, 128,128,3,193, 128 
206029 DATA7, 227, 192,61 „255,160, 243 ,255,2 

08,61 ,255, 180,7,227,192,3,193, 128,1 
20950 DATA1ZE, 28, 0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0, 24, 0,0,24,0 

20031 DATAO, 22, ‚0, 0,60.0,0,60,0,0,60,0,0; 
126,0,.0,231,0,7, 195,228, 63,129 ,282 

20032 DATASS, 129, 252,7,195,224,0,231,0,0 
„126,0,0,60,0,0,60,0,0,60,0,0,24,0 

20033 DATAO,ZA, o, 0,24,0,0,0,80,0,102,41; 
152,50,80 „240,25,174, En "60,220, 240 

20034 DATA1OS. 255,152, 103,255,152,60,48, 

240,28 ,48,76,0,120,0,0,704,0,0,204 

20035 DATRO,0,120,0,0,49,0,0,0,0,0,0,0,0 
„0,0,0,0,0,0,0,0 ‚Q, 6.0,0.0.0,0,0,0 

20054 DATAO,0,0, a, 6 „ö „0,0,0, ö, 0,0,0,0,0, 


0,0,0,0,.0,48,0, ö, 120, 0,0, 204, ö, O5 204 


20037 DATAG,0,170,0,24,48,96, 60,48,280,1 
03,255,1532,103,255, 152,60,220,280,25 
20038 DATALTS,96,60,80,240,102,41,152,0, 
E0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, o 

20039 DATA16,0,0.48,0,0, 113,0,0 ‚243,7, 25 
5,246,31,255, 232.258 ,255,248,255,25 


Gompube mi 


<189> 
<102> 
xB6> 
<208> 
<B8> 
266> 
<195> 
<242> 
<124> 
<78> 
&27 > 
<208> 
«231> 


“217> 


"<159> 


<I> 


“1534> 
“35 


x175> 


“173 


x177 


«117> 


XI22 


<11&> 


ZLA3F 


<215> 
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| 20040 DATA248,31,255 , 252, 7,255 ,246,0,0,2 
43,0,0,113,0,0,48,0,0,16,0,0,0,0,0 


| 20041 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
|. 0,0,8,0,0,12,0,0,142,0,0,207,.0,0,111 


20042 DATA255,224,63,255,248,31,255,255, 
31 ,255,255,63,255,248,111 ,255,224,207 
20045 DATAO,0,142,0,0,12,0,0,8,0,0,0,0,0 
„0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
20044 DATA0,0,0,0,0,0,24,0,0,24,0,0,24,0 
„0,60,0,0,126,0,0,255,0,1,255,128,3 
20045 DATA195,192,3,219,192,3,219,192,1, 
195,128,0,255,0,0,128,0,0,60,0,0,102 
20046 DATAO,0,219,0,0,0,219,0,0,102,0,0, 
60,0,0,126,0,0,255,0,1,195,128,3,219 
20047 DATA192,3,219,192,3,195,192,1,255, 
128,0,285,0,0,126,0,0,60,0,0,24,0,0 
20048 DATA24,0,0,24,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,50,0,0,126,0,0,231 
20049 DATAO,0,231,0,0,126,0,0,50,0,12,24 
,48,30,24,120,.63.24.252,.115,255,206 . 
20050 DATAL1S,255,204,63,24 ,252,20,24,12 
0,12,74,48,0,50,0,0,126,0,0,231,0,0 
20051 DATA2S1, 0,0,126,0,0,60,0,0,0,0,0,0 
‚„0,0,0,0,0,0,0,0,0,0,0,0,0,0.0.0.0 
20052 DATAO,0,0,0,28. 0,7,295,224,63,255, 


240> 


<102> 


<B7> 


Aazzr 


x109> 


xB7F 


“1695 


x1495 


A227 


x74> 


x1&0> 


K223> 


Tips € Trick 


_tips & tricks 


60,255,255,63,255,253,255,63, 252,60 Si2r 
20053 DATa7 „255, 224,0,28,0,0,0,0,0,0,0,0 


‚0,0,0,0,0,0,0,0,0,0,0,0,0.0.0.0.0 <4l> 
20054 DATAO,0,0,0,0,0,0,0,0,0,040,0,0,0, 
0,0,56,0,7,255,224,60,255,252,252,255 <59> 
20055 DATA255,255,191,255,60,63,252,7,25 
5,224,0,56,0,0,0,0,0,0,0,0,0,0,0,0 <22> 
20056 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,255,254,1,255,254,3,255,6,7,249 _ <iBO> 
20057 DATA134,15,249,128,15,255,249,15,1 

59 ,248,15,215,192,15,147,192,15,248 <99> 
20058 DATA128,7,255,128,3,255,128,1,255, 
0,0,254,0,0,0,0,0,0,0,0,0,0,0,0,0,0 x35> 
20057 DATA0,0,0,0,0,0,0,0,0,127,255,0,12 
7,255,128,96,255,192,97,159,224,1,159 '2195> 
20060 DATA240,31,255,240,31,249,240,3,23 
5,240,3,201,240,1,31,240,1,255,224 <b> 
200641 DATA1,255,192,0,255,128,0,127,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0 <111> 
20052 DATAO,0,0,0,0,0,0,050,0,0,0,0,126, 
0,0,255,0,0,195,0,0,175,0,7,255,224 <37> 
20063 DATA2SS,255,255,255,255,255,127,25 
5,254,31,255,248,7,255,224,1,255,128 <25> 
20064 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0 <81> 





Superpokes für den C-64 


Superpeeks für C-64 












POKE 1,54 > Basic abschalten PEEK(186) > aktuelles Peripheriegerät 
POKE 649,10 — Tastatur freigeben PEEK2BB) > gedruckte Taste 
I POKE 649,0 > Tastatur sperren PEEK(646) — aktuelle Zeichenfarbe 
| POKE 650,128 > alle Tasten auf Repeat PEEK{53257) — Lightipen X 
POKE 775,1 — Listschutz PEEkK(53268) > Lighipen Y 
POKE 649,X > Tastaturpuffer verändern (max 10) PEEKISB32I) — Joystick Port I 
POKE 649,X — Schriftfarbe PEEK(56320) — Joystick Port il 
POKE 294,0 > Cursor an 


POKE 207,0:POKE 204,1 > Cursor aus 








FOKE 2,53 — Betriebssystem abschalten Supersys für 6-64 
POKE 126,2 > CMB verhindern ET 
POKE 19,64 — Input ohne? POKEZI1,X:POKE214Y:SYS58732 > Cursor Koordinaten 
POKE 657,128 >= Commodore & Shift stoppen SYS54738 > RESET 
POKE 768,185 — Fehlermeldungen aus sYs6sal > Files schließen 
POKE 768,139 — Fehlermeldungen an SY565499 > TI$="000000* 
POKE 192,X > Kassettenmotor normal{O)/aus(T} 
POKE 37148,252 — Kassettenmotor anschalten SYS65499 
POKE 801,0:Poke802,0: . INTERNE ZEIT AUF NULL STELLEN 
POKE 818,165 — Kopierschuiz 
POKE808.225 
RUN/STOP RESTORE-UND LISTSCHUTZ 
POKE808.237 
POKE43.0 | AUFHEBUNG DES SCHUTZES 
POKE44.128 POKE(44),PEEK(46)+1 
POKE25.0 LOADIDIREKTORYiI POKE214.ZEILE 
POKE48.192 LIST POKE211.SPALTE 
SAVE’NAME’.8 POKE44.8 5YS58460 
ABSPEICHERN DES MODULBEREICHES i DIREKTORY LADEN OHNE PRG. VERLUST CURSOR POSITIONIEREN 
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report 


Neues Au 


tomodem für den 


Commodore 64 direkt aus Amerika 


Die Fa. HPT. Electronic & Co. aus Trier führt seit kurzer Zeit ein neues Automodem für 
den Commodore in ihrem Hardware-Sortiment. Dieses in den. USA produzierte Modem 
istnach Auskunft des Vertriebspartners sehr gutzu handhaben und durch die mitgelie- 
ferte Software voll menuegesteuert. Für den Anwender bedeutet das, er kann auf ein- 


fachste Weise mit diesem Modem arbeiten. 


Knowledge 
Modem 
AC64 


Telephone 
cable te 
the wail 


6 foot 
cable 


Wie Sie aus der Aufbau-Skizze erkennen 
_ können, wird das Modem direkt an den 
C-64 und das Telefon angeschiossen. Sie 
müssen lediglich ein Kabel in den User- 
port Ihres Computers stecken und eine 

Verbindung vom Modem zur Amtsleitung 
| herstellen. Anschließend laden Sie die 
mitgelieferte Software und schon kann es 
losgehen. 


Der Vorteil dieses direkt angeschlossenen 
Modems liegt in verschiedenen Berei- 
chen. So haben Sie keinen Leistungsver- 
just, und die akustischen Störungen, die 
beim Gebrauch eines Akustikkopplers 
| auftreten können, entfallen gänzlich. 

Die Vielfalt der Einsatzmöglichkeiten ist 
verblüffend. Das Modem bietet die Mög- 
lichkeit des automatischen Wählens einer 
Rufnummer, Auteloggon u.v.m. 


Wollen Sie Ihre eigene Mailbox einrichten, 
hesitzt das Modem zusätzlich eine Auto- 
answerfunktion. 


Einige andere wichtige Daten aus dem Be- 
reich der Hard- und Software rund um 
das Modem entnehmen Sie bitte dem fol- 
genden Kurzüberblick: 


24 










Dial’Talk Switch 


SOFTWARE 


Vol! menuegesteuert 
Online Uhr 
ASCH oder Commodore Mode 


Automatischer- Verbind.-Aufbau: 


30 KB Pufferspeicher 
Daten u. Programmübertragung 


HARDWARE 
LED für Empfang-Anzeige 


COITT V.21 (deutsche Norm) 
300 Baud/Voll- + Halbaduplex 


Compute mik 











Wählautomatik 
Oroginate/Answer 
Tele/Modem/Umschalter 

Autom. Rufannahme (Mailboxbe- 
trieb) 


Der einzige Nachteil liegt derzeit noch in 
dem mitgelieferten Handbuch, weiches 
feider nur in englischer Sprache den Ge- 
brauch des Modems dokumentiert. 

Eine Ftz.Nr. der Bundespost gibt es für 
dieses Gerät noch nicht. Nach Auskunft 
der Vertriebsfirma sollen die Postbestim- 
mungen für diese Gerätschaften jedoch 
wesentlich erleichtert werden. So kann 
man voraussichtlich in einigen Wochen 
diese Geräte auch ohne Ftz.Nr. an vorhan- 
dene Amtsleitungen anschließen. Nähe- 
res zu diesem Thema werden wir aber 
noch berichten, oder erfahren Sie bei Ih- 
rem Postamt. 

Lieferbar ist dieses Modem auch für IBM 
und kompatible Rechner. 

Der Preis ist dabei mit 

158,-- DM für das C-64Miodem 

und mit 

220,-- DM für I3M und Kompatible 

an seiner unteren Preisgrenze angelangt. 


Für 0,80 DM Briefmarke erhalten Sie eine 
©; 05, Kurzinfo bei: 

: HPT. 

: Fieetronie & Co. 
:: Postfach 2180 
:; 5508 Trier 1 
nr oder 
> Am Rain 23 

:: 8024 Beienhofen 
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et 


13 


_programme 





Das Textverarbeitungsprogramm „Data- 
Text 64“ wird mit SYS 32768 aktiviert und 
desaktiviert durch die Tasten RUN/STOP 
und RESTORE. 

In der vorliegenden Version stehen dem 
Anwender über 14KB (14848 Zeichen) als 
Textspeicher zur Verfügung. Das ent- 
spricht einem Speicherbereich von $9500 
bis $CF00. Hinzu kommt noch eine Reihe 
an Befehlen, die als nächstes beschrieben 
werden. 

Grundsätzlich werden die einzelnen Be- 
fehle durch Betätigung der CTRL-Taste in 
Verbindung mit einer Buchstabentaste 
angewählt. Zusätzlich werden durch die 
Funktionstasten bestimmte Cursor-Bewe- 
gungen angesteuert. 

CTRL + A—-BDurch Textüberschreibung 
erfolgt Groß/Klein-Schriftänderung. 
CTRL + B > Hiermit wird die Bild- 
schirmfarbe geändert. 

CTRL + C— Tabulator-Stop. Voreinge- 
stellt sind Stops nach allen 5 Spalten. Das 
gleiche wird durch Betätigen der RUN/ 
STOP-Taste bewirkt. 

CTRL + D> Hiermit wird jeweils: Wort, 
Satz oder Paragraph entfernt. 

CTRL + E > Eine kurze Befehlsüber- 
sicht wird ausgegeben. 

CTRL + F > Durch Ansetzen des Cur- 
sors auf den Textanfang wird diese zei- 
chenweise im Puffer übernommen und 
kann mit R abgerufen werden. 

CTRL + H — Sucht aus dem Texispei- 
cher das eingegebene Wort und zeigt es 
an. 

CTAL + K > Der Puffer wird gelöscht. 
CTRL +1 Dadurch wird dar insert-Mo- 
dus ein- und ausgeschaltet. (Text einfü- 
gen). 

| CTRL+L> Der ganze Text wird seiten- 
| weise ausgedruckt. Hierzu besteht die 
Möglichkeit, vor dem Programmstart das 
Papier-Format einzustellen mit: 


| POKE 360611 = Endlos fjeiziger Inhalt) 


- POKE 36051,0 = Einzelhlatt 
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CTRL + R > Puffer-Inhalt abrufen und im Textspeicher ablegen. 

CTRL + S — Speichert Textfile auf Kassette oder Diskette. 

CTRL + V > Verifiziert Textfile von Kassette oder Disketie. 

CTRL + X — Hiermit werden zwei Zeichen untereinander ausgetauscht. 
CTAL + Z > Die Schriftfarbe wird geändert. | 


CTRL + £ > Durch diese Kombination werden die Drucker-Steuerzeichen eingege- 
ben. Dabei sind die Tasten 1 bis 3 wie folgt belegt: 


1 = CHRAS(14) = Breitschrift = z.B. Tr = to. 
2 = CHRS(15) = Normalschrift = z.B. Test 
3 = CHRS(18) = Reversschrift = z.B. Mmıtzeizun 


Die Taste 2 wird nur eingegeben, um die anderen Schriftarten auszuschalten. 
Weiterhin besteht die Möglichkeit, alle drei Schriftarten zu mischen z.B. 


Test IHREN CHE SEE Hg ER SR HERREN Eu 


und zusätzlich ist im Programm noch Platz frei, um weitere Drucker-Formaten nach- 
träglich zu belegen. Es wären dann insgesamt 9 Tasten (1-9). 


CTRL +1 > Das Diskettenverzeichnis der Diskette wird angezeigt. 
CTRL + + > Löscht Zeichen unter dem Cursor. 


CTRL + = Hier wird vom Textspeicher der noch freie Platz angezeigt. 


F1,F3,F5 > Cursor unten zum nächsten Wort, Satz, Paragraph 

F2,F4,F6 > Cursor oben zum nächsten Wort, Satz, Paragraph 

F7 > Cursor auf Textende Wird die GLR-Taste betätigt, erfolgt die Lö- 
F8 > Cursor Home schung des ganzen Textspeichers. 


Beginn des Pronramm-Listings: 


1 REM ESRERSCSHSHN EHE HUHN EH HS IH RK EGH 
zZ REM & + 
S REM * DATATEXT 4 * 
3 REM # * 
SG REM * COPYRIGHT DBY 5,NVALENTINO * 
o REM # = 
REM =# CC} TRONID-SOFT * 
9 REM * j ® 
FD REM OHREN HEHE EEE EN 


Sompute mik 25 


26 


programme 


&0000 DIMH 75: FORI=UTOYF 


[=12 127219) 
&o010 H{48+ D)=I:rHt&5+I)=It 10: NEXT 60070 
Soozo FORI= 37758 TO 37633 :READAF [-1018 1218] 
60030 H=ASC (LEFTEFIAF,13) 60085 
süuddao L=ASC (RISHTFIAF,I}) 60090 
&0050. D=H<H) #16+H1L 3 7 5=S+D: FOKEI,D 01009 


sozol 
S0202 
SI2OS 
sch 
02705 
Horb 
60207 
EOFTOR 
60207 
50210 
nit 
50212 
60215 
“214 
6072153 
80216 
606717 
218 
50219 
HöOzzo 
60221 
Sso22z 
60223 
0224 
0225 
Sor2& 
a0227 
HOz2B 
022% 
SOr3O 
60231 


euz32 


0235 
60234 
60235 
80236 
60237 
60239 
0237 
so2ad 
za 
60242 
602453 
O244 
60245 
246 
60247 


50248: 


60247 
60250 
60251 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DETA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATR 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
paTa 
DATA 
DATA 
DATA 


20,06 ,80,40 ,D5,82,A9,0B,8D,05, 
20 ,45,80,99,00,8D,BB,93,20,77, 
BE ,B0,59,80,A0 
59 ,75,20,D2,FF,4C0,BE,80,00,A9, 
26 ,A9,95,85,9C,80,59,73,8D,BF, 
9C,91,9B,C08,E6,7C0,71,98,08,D0, 
9 ,7F,8D0,0D,DE,AF,1R,8D,11,D0, 
59,01,80,14,D0,5D,12,D0,58,60, 
01,AC,C5,72,8C6,21,D00,80,12,DO, 
253 ,88,A9,01,8D,19,D0,4C,31,ER, 
49,00 ,8D,BA,93,60,42,37,49,20, 
FF ,48,29,80,44,85,47,68,29,3F, 
AQ,00,B1,A7,F0,06,20,D2,FF,C8, 
8D,985,94,20,CE,80,99,5A,A0,9F, 
FB,80,37,81,95,FC,80,38,81,#5, 
ES ,FO,20,49,00,8D,BC,73,A0,00, 
DO,F4,EE,29,81,EE,3B,81,E0,00, 
A9,50,85,03,85,14,47,04,85,04, 
E9,92,85,9C ,92,01,AD,BB,73,85; 
C4,93,91,14,B1,9B,97,06,953,08, 
88,B1,7B,29,7F,C09,20,F0,03,88, 
93,91,C035,88,10,F9,94,R7,18,78, 
78,9D0,30,03,C0,50,F0,08,47,20, 
50,85,03,85,14,70,04,E6,C4,E6, 
78 ,80,02,93,45,90,80,03,73,60, 
65,FC,50,15,82,A5,FB,8D0,14,82, 
17,82,E8,#4,B4,D0,04,F0,0D,A0, 
DO,F5,CE,15,82,CE,18,82,CA,DO, 
#5,27,ED,B9,73,05,47,B0,1E,38, 
E9,95,05,97 ,F0,00D,AS5,26,9D,B8, 
AD,C2,973,E5,26,95,78B,AD,03,73, 
18,AD,B9,73,6D,3D,03,80,B8,73, 
81 ,40,57,82,60,38,AD,BE,75,E9, 
90 ,0A,A9,00,8D,BE,73,47,C07,9D, 
27 ,E9,95,05,A7 ,B0,09,49,00,85, 
BE ,93,95,47,45,27,ED,BF,93,05, 
BF ,93,95,27,60,A0,00,B1,26,85; 
54 ,81,20,E4,FF,D0,0D,A5,A2,29, 
AA, A0,00,95,02,91,26,E0,FA,DO, 
4C,05,82,AD,BA,73,F0,07,8N,48, 
A2,F9,84,29,7F,09,20,70,46,E0, 
FO,05,20,6D,96,68,20,DD,80,A0, 
BE, 93,85,47,45,27,ED,BF,973,05, 
65,27 ,69,00,8D,BF,93,E6,26,D0, 
AE,91,83,DD,71,83,F0,06,EA,DO, 
43,49,D4,498,5D,B6,95,48,BD,BS, 
84,854,14,94,04,80,09,93,897,8B, 
19,1C,09,06,01,0B,08,1F ,03,5F, 
84,87,94,1A,05,B3,86,66,86,DA, 
87 ,C3,97 ,E8,89,56,88,35,8#,B7, 
84 ,2E ,8D,04,89,33,88,CE ,86,F9, 


A=A+l: IFASFOTHENNEXT: A=-i 

READY: 7Z=2+1: IFV=STHENGOOSS 
FRINT"DATAFEHLER IN ZEILE ı":&0200+Z: END 
IFASOTHENSOLOO 

5=0: A=0:NEXT 

END 


93,89 ,26,85,01,A9,0F ,80,04,73, 
80,A9,FF,8D,8n,02,20,FD,80,20, 


90,20,EC,RO,EE ,EA,93,60,00,20,85,82,40,28,82, 


00 ,85,7B,8D,B8,73,8D,BE,73,85, 
93 ,85,27,R9,20,A2,3A,AQ,FF,C6, 
FB,E6,90,CA,D0,F6,91,9B,60,78, 
59 ,96,80,14,03,R7,80,80,153,07, 
A9,42,A4,00,00,12,D0,D0,05,A9, 
C9,01,F0,08,#9,01,8D,17,D0,4C, 
20 ,CE,80,49,35,A0,8F ,20,EC,80, 
30,19,04,CA,10,FA,49,13,4C,D2, 
05,47 ,60,00,00,00,95,47,84,A8, 
D0,F&,60,#69,00,80,84,94,A9,DO, 
20 ,EC,80,49,01,80,84,93,60,A5, 
FD,SD,3R,81,#5,FE,80,3B,81,A6, 
89,54 ,96, 99,53, 76,08, CC,BC,93, 
F0,07,CA,D0,E0,45,B4,D0,DE,60, 
#9 ,D8,85,15,AD,B8,93,95,9B,AD, 
06,AD,05,93,2D,20,D0,A0,00,AD, 
29 ,7F ,09,7A,F0,15,00,50,D0,EB, 
D0,F5,A0,4F,08,84,R7,88,B9,C6, 
65,9B,85,9B,A5,9C,69,00,95,9C, 
71,03,08,4C0,BC,81,18,45,03,67, 
15,E8,E0,006,F0,03,40,79,81,95, 
55,85, AA,05,B4,D0,01,60,18,8A, 
18,80,65,FE,80,18,82,A5,FD,9D, 
FF ,B?,00,94,99,01,74,88,C0, FF, 
ER ,60,38,05,26,ED,B8,93,85,97, 
AD,B8,93,E9,00,85,07,AD,B9,73, 
93 ,45,27,80,B9,93,20,54,91,38, 
E5,27,85,96,05,9B,F0,02,BO,18, 
AD,E9,93,69,00,80,B9,93,20,54, 
00,85,97 ,AD,BF,973,£9,CF „05,47, 
BF ,93,38,A5,26,89,00,85,A7,A5, 
26,69 ,95,95,27,60,38,A5,26,ED;, 
A7,BO,01,60,AD,BE,93,95,25, AD, 
02,A0,00,B1,26,49,90,91,26,20, 
10,F0,F5,A9,00,85,92,4C,DB,82, 
OC,20,07,94,49,20,A0,00,91,26, 
20 „BE ,80,68,AA,8A,09,0D,D9,02, 
AO,DO,02,42,20,BA,48,AD,BB,73, 
00,91,26,20,54,81,38,A5,26,ED, 
A7 ,90,0E,A5,26,69,00,8D,BE,73, 
02 ,E6,27,20,FB,83,40,D5,82,8%, 
F@,4C,05,82,CR,BA,0R,AA,A9,82, 
93,48,60,23,1D,9D,89,95,02,1A, 
05,0C,13,16,91,11,1E,12,18,88, 
8A,06,84,11,84,4R,84,9D,84,47, 
86,34 „B6 ,AR,B&,2E ,87,4A,87,69, 
84 ,1A,85,59,8%,0E,8B,E9,90,83, 
8C,FC,80,3F,BE,AF,8B,5B,86,40, 


Compute mib 


2237 


Z302 
ah 
2747 
803 
33537 
2177 
2320 
2339 
F3bl 
284 
1746 
29764 
Fusi 
2977 
2802 
3277 
a7Ea 
267 
SC 3 
2760 
28553 
2515 
25839 
2709 
=Fz23 
23277 
3037 
27437 
2460 
PIFAZ 
2372 
2740 
2613 
2290 
2715 
1707 
2707 
2087 
2569 
2670 
2097 
2532 
7505 
3087 
2297 
1442 
1275 
2498 
2620 
2768 


4786 


u Fuss 





0732 
60293 
0754 
60255 
602754 
560257 
60258 
50257 
S0240 
&O>El 
Solar 
80263 
AO264 
60265 
oh 
AHO2a7 
ec? 
50267 
SOF7FO 
60271 
807772 
SOR7S 
0274 
50275 
50275 
807277 
or7E 
60277 
te yelnie) 
02781 
GO2ZBR 
HO783 
794 
60295 
[= ja = 721 
52287 
65298 
60297 
Sozao 
GOzZFi 
0272 
602973 
so274 
60295 
027% 
0277 
0298 
SOZFF 
9300 
&03o1 
SOicz 
50303 
63304 
0305 
AO30S 
Bun? 
sn30g 
60307 









DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATS 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAara 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT 
DETE 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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56,80 ,ER,EA,EA,EA,ER,EA,ER 
FB,83,A5,26,85,98,45,27,85 
C9,7A,D0,053,89,00,F3,B1,98,09 
60,84,R7,38,A5,9B,65,47,85, 
00 ,B1,268,07,20,F0,08,09,7A, 
C9,20,F0,F7,09,7A,F0,F3,18,98,65 
4C,FB,83,AD,BE,93,85,26,AD,BF,93 
93,AD,BF,93,38,£9,04,09,95, 
77,84 ,EE,C5,93,AD,05,93,29, 
29,0F ,8D,04,93,4C 
B1,9B,09,2E,F0,00,09,21,F0,0 
EB,60,B1,9B,C9,2E,F0,1A,09,2 
89 ,D0,ER,C6,90,A5,97,C09,00,B 
OA,B1,9B,09,20,F0,F7,88,4C 
R97,75,85,27,40,FB,83, 
SF ,F0,15,07,7A,F0,11,C8,D0,EB,E6, 
E0,40,77,94,08,FO,FA,B1,26,09,20, 
EF,C9,3F,F0,EB,C9,7n,F0,E7,40,68, 
27,69,95,05,A7,D0,03,58,69,50,85 
AS,26,85,FD,49,FF ,65,FB,80,88,94,45,27 
87,74,A5,FB,8D,8A,94,A5,FC,8D,8B 
FE,80,50,94,85,FC,18,AD,89,93,&D 
AF,6A,AO,BF ,20,EC,80,49,01,8 
85,FD,AD,85,74,85, 
87,94,95,B5,6D,85, 
17,81,49,26,85,01,89,01,8D, 
FC,AD,80,94,85,FD,AD,8D,94, 
BF,93,ES,FE,85,B5,20,17,81 
EF,93,ED,89,74,9D,0F ‚93,60 
E9,93,05,A7,F0,0B,AD,58,92 
26,49,95,85,27,8C 
DO,F4,4C,4B,84,18,A5,26,85, 
85, FE,38,AD,BE,973,ES,FD,85, 
06,A7,01,95,B4,E6,B5,20,En, 
O5,EE,BF,93,4C,74,34,AD,BB, 
07,84,20,77,85,38,AD,84,94,69 
85,74,60,20,60,84,20,50,95,7 
853,00,20,CE,80,A9,77,AG,8F, 
80,68,29,BF,C9,17,D0,09, 
07,20,50,85 


27,06,26,4C, 


‚04 ,88,D0,FZ, 


‚54,81,05,26,35,96,A5 


AQ,00,B1,26,09 


D,6A,93,49,09,895,06,60 
FE,AD,88,74,85,B4,18,6D,84,94,9D 
‚8D,85,94,49,00,8D,1A,D0 
16,DO,AD,8A,94 ,95,FE,AD,8B,74,85, 
85,FE,58,AD,BE,93 
‚38, AD,BE,73,ED,88,74,80,BE,73,RD, 
‚38,A5,26,ED,29,93,85 
‚85,26,AD,89,93 
‚FB,83,A0,05,80,9E,94,20 


‚ES,FD,85,B4,AD, 


‚A7,AS,27,ED, 
‚85,27,60,47,00,85, 
60,86, AC,7E,74,98, 
FE,67,01,85,FD,A5,27,85,F0,67,00, 
‚ES,FE,85,85,09,FF,DO, 
‚20,91,2&,EE,BE,73,DO, 
‚47 ,0E,80,BB,93,60,20,50,85,20, 
‚01,8D,84,74,AD,85,94,29,00,8D,. 
0,07,84,4C,77,85,2 
20,EC,80,2 
20,50,85,20 
‚20,88,84,40,77,85, 
4C,77,85,60,69,87,A0,8F 
02,85,00,20,CE,80,A9,9E,R0,BF 
89 ,A2,FF,96 
99,27 ,2D,BF,973,90 
85,78,95,27,85, 
FS,06,90,A5,90, 
65,90,85,9C, 
A7,18,5,9R,E5,47,85 
26,45,90,85,27 ,4C 
70,20,02,FF,C8,C0,FF,DO,FS, 
B0,92,20,D2,FF,E8,E0,35, 
CD,DO,F9,R7,0B,8D,C05,92 
D4,R7,00,9D,04,D4,09,58 
BC ,FE,00,49,00,30,18,D4,8D,6 
88,097,00,D0,10,49,01,8D,27,88 
DE,88,60,47,00,8D,22,398,8D,04,88,8D 
AO,BF,273,EC,B0,20 
73,RC,BF,92,09,98 


B4 ,AD,BF,9 
81,A0,00,AF 


0,FD,80,A9,02, 
Q,E4,FF,FO,FB,48,20,BE, 
‚12,84,40,77,85,09,13,D0, 
‚20,50,85,20,64,97, 
20,E4,FF,FO,FB,C97,59,60,67, 
0,20,87,F0,03,4C,BE, 
0,0F ,C8,DO,F7,E6,27, 
»27,40,68,84,09,26, 
‚F0,10,98,C0,FF,Do, 
,65,98,85,98,89,00, 
‚27,05,47,D0,12,94, 
5,90,40,7C0,27,45,78,85, 
20,D0,89E,05,93,A40,00,57,B0, 
RD,D0,87,EE,D0,87,097,71,DO,E?,ED, 
D0,F5,49,90,80,00,87,ER,20,E4,FF,C9, 
‚18,D4,49,F7,00,08, 
‚30,.02,D4,80,03,D4,4C, 
CH,C7,40,00,07,4C0,EC,FE, 
‚%7,07,80,64,93,97,41,0D, 
‚UE,88,60,20,CE,90,A7,04, 
009,85,98,49,95,85,97,AE,BE, 
DS,FF,BO,04,20,E7,FF,27,BF,D0,03,40,26, 


C9,10,00,09 
‚20,EC,90, 
„20,EC,80,2 
‚30 ,00,90,A0,00,B1,26,C09,75,F 
„EE,40,77,84,C08,D0 
90,06,9C0,AO,FF,B1,9B,09,78 
C9,95,B0,ED,40,10,85,38,98 
39,95,9B,E5,26,85,47,95,90,65 
»FE,AS,9C,E9,00,8 
‚FB,93,A2,00,8E, 


‚AC ,BE,80,99,00,8D 
8D,01,D4,A9,09 


‚BC,88,50,1F,09, 





Compube m 


_Programme 


„EA,ER,AS,26,D0,02,C6, 
„E64, 90,AO,FF,Bi,98,09,20,F0,04, 
,20,F0,08,09,7A,Fo 
26 ,65,7C,69,00,85,27,40,FB,B3,A 
‚C8,D0,F3,60,C8,F0,19,B1,26, 
‚26,95,26,45,27,69,00,85,27, 
‚85,27,40,74,84,49,00,8D,B8, 
50,02,49,75,8D,B9,93,20,54,81,4C, 
OF ,8D,05,73,60,EE,C4,93,AD,04,93, 
‚27 ,85,90,06,90,A0,FF, 
8,07,5F,F0,04,09,7A,D0,04,98,D0, 
1,F0,16,67,3F,F0,12,09,7A,FO,0E, 
0,E3,40,10,95,84,A7,06,47,08,F0, 
:37,84,A4,A7,4C,DA,84,A9,00 
‚2E,F0,10,C9,21,F0,19,09, 
27,A5,27,CD,BF,93,F0,E2,90, 
FG,F7,09,2E,F0,F3,09,21,Fo, 
84 ,29,A5,26,E7,00,85,47,A5, 
‚FB,AS,27,85,FC,60,38, 
‚83, FE,49,FF,65,FC,BD, 
‚74 ,AS,FD,8D0,8C,94,85,FB,AS, 
‚85,74,09,FF,70,14,70,CE,B0, 
‚AD,B4,974, 
‚24,94, AD, 
‚R7,20,85,01,20, 


= - 
3aso 


2944 
Os 
2425 
Ssr0 
2475 
Fan 
2571 
3084 
Saar 
27090 
=771 
3197 
2540 
233 
3173 
SEB0 
s041 
435 
53107 
Sr 
ZIrF 
2567 
30694 
=3>2 
2474 
2432 
3057 
SUE 
Fire 16 he 
2485 
2537 
3720 
2ar2 
Faur 
2415 
1755 
2798 
100 
190% 
728 
2247 
2780 
2650 
S2G2 
2877 
Faonr 
ZBrE 
540 
3814 
3544 
2638 
Ea30 
zrid 
ri81=53 
2157 
Zu 
2647 


Pa 


B L. 


programme 


60510 
sosli 
031% 
60313 
60314 
0313 
40315 
0317 
40318 
60517 
so0320 
60321 
birirz 
VER IAE 
0324 
60325 
soF2ä 
&0327 
SosrE 
40327 
0330 
60331 
O332 
HOFFE 
50554 
60335 
SU3356 
0337 
40359 
adzE 

50340 
60341 
usa 
59343 
40544 
60345 
H0I4b 
60347 
60549 
60347 
Soaso 
50351 
HO3IE 
EOESF3 
60334 
60355 
035 
60357 
60358 
60337 
Boss 
60sal 
Os 
50363 
sus 
03653 
SOsbh 
60367 


Lo 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


aA,FO,27,AD,BB,88,07,08,90,06,20,9E ,8F ,4C,A5,89,AD,BB,88,079, 
01,F0,F9,20,CE,80,A9,BB,AQ,8F ,20,EC,80,20,77,80,7,01,8D,ER, 
93,60 ,20 ,CE,80,49,07,A0,8F ‚20,EC,80,40,45,88,01,20,44,09,F0, 
18,09 ,E9,A0,BF ,20,EC,80,20,E4,FF,FO,FB,A2,08,09,44,F0,0C,R2, 
01,09,54,F0,06,20,BE,80,58,68,60,89E,BB,88,A9,01,A0,00,20,BA, 
FF „AO ,00,E0,01,F0,2A,B9,7E,98,09,40,D0,07,89,7F,73,09, 54,70, 
1C,A9,30,8D,18,74,#9,34,80,17,94,B97,7E,93,79,18,74,C8,CC.C1, 
33,90,F4,F0,F2,08,40,25,89,E7,7E,93,79,16,94,08,CC,01,75,D6, 
F4,8C ,2E ,94,20,CE,80,49,7E,A0,93,20,EC,90,AD,2E,74,R2,16,R0, 
94,20, BD,FF,R9,0D,20,D2,FF,4C,F1,8E,9#,26,E5,03,80,00,73,R9, 
00,80 ,A0,74 ,A0,00,A9,9C,20,D2,FF,A9,12,20,D2,FF,A9,20,20,D2, 
FF,A9,9D,20,D2,FF ,8C0,01,92,20,E4,FF,FO,FB,AC,E1,93,83,07 4694 
92 ,20,D2,FF,A9,20,20,D2,FF „A? ,9D 20 ,D2,FF,A9 ,98,20,D2,FF 95, 
A7 ,C9 ,OD,FO,2E,C9,14,D0,0F,88,10,04,08,40,52,87,R7,9D,20,D2, 
FF,AC,52,89,29,7F,09,20,90 ,AC,CC ,C0,93,F0,A7 ,A5,A7,99, 76,755 
20 ,D2,FF ,A7,00,85,D4,C08,40,52,89 ,20 ,D2,FF ,A97,00,97,76,95,98, 
60,20 ,CE,80,9,AE,AO,8F ,‚20,EC,80,20,E4,FF,FO,FB,20,DD,90,07, 
80,48, AD,BB,73,F0,03,20,6D,86,20,BE ,80,68,4U0,30,83,38,N5,26, 
E3,00 ,85,A7 ,A3,27 ,E9,95,03,A7,F0,04,89,06,85,00,20,UCE,80,97, 
FE,AO,BF ,20,EC,80,20,BC,88,A5,06,09,06,F0,03,20,45,80,07,00, 
N&,26,h4,27,20,D5,FF ,90,03,4C,85,88,8E,BE,73,80,BF,73,20,E7, 
FF ,20,CE ,80,A9,DF ,AO,8F ,20,EC,80,40,A5,88,20,CE ,80,R7,05,R0, 
90,20 ,EC,80,20,BC,89,A9,01,A2,00,A0,95,20,D5,FF,20,B7,FF,29, 
BF ,F0,D3,20,CE,80,49,D0,A0,8F ,20,EC,80,4C,05,88,E6,26,D0,02, 
E6,27,4C,FB,83,A9,93,20,D2,FF,A9,0D,20,D2,FF,20,F1,BE,20,7B, 
8A,A9,0D,20 ,D2,FF ,AF,0E,A0,70,20 ,EC,80,20,E4 ,FF,C7,0D,D0,F7, 
20,77 ,80,40,51,8F ,20 ,CC,FF,A9,01,20,03,FF,60,20,E7 ,FF,A9,01, 
A2 ,09,R0,00,20,BA,FF,A#,02,R2,1E,A0,70,20,BD,FF,20,C0,FF,BO, 
DD,A2,01,20,C6, FF ,20,CF ‚FF,20,CF,FF,20,CF,FF,20,B7,FF,DO,Ch, 
20,CF,FF,FO,05,20,CC,FF,20,E4,FF,09,20,D00,05,20,E4,FF,FO,FR, 
A2,01,20,C6,FF,20,CF ,FF,48,20,CF ,FF,AB,68,AR,78,R0,37,84,01, 
20,CD,ED,A0,36,84,01,49,20,20,D2,FF ,20,CF ,FF,F0,06,20,D2,FF, 
ac ,FC,5#,A9,0D,20,D2,FF,40,C0,84,38,AD,84,94,E9,00,80,86,74, 
AD,85,94,E9,D0,80,87,94,00,86,74,D0,10,20,CE ,80,49,29,R0,790, 
20 ,EC,80 ,49,01,80,BA,93,60,18,A5,26,85,FB,6D,86,94,85,FD,AS, 
27 ,85,FC,5D0,87,94,85,FE,28,AD,BE,73,ES,FB,85,B4,AD,BF,95,E5, 
FC,95,85,18,65,FE,09,CF,90,10,20,CE ,80,A97,20,#0,90,20 ,EC,B0, 
A9,01,80,BA,93,60,20,E#,81,18,RD,86,74,85,B4,6D,BE,93,8D,BE, 
93,AD,87,94,85,B5,6D,BF,93,80,BF,93,45,26,85,FD,A5,27,85, FE, 
A9,00,85,FB,A9,D0,85,FC,A9,00,8D,14,D0,49,20,85,01,20,17,81, 
R9 ,26,85,01,A9,01,8D,1A,D0,40,FB,83,20,CE,90,38,A9,00,ED,BE, 
93 ,AR,A9,CF,ED,BF,93,R0,37,84,01,20,CD,BD,A0,36,84,01,A9,01, 
ED ,BA,93,60,A0,00 ,CC,BC,93,F0,F8,B1,A9,30,26,20,0F,8D,20,0B, 
BF ‚20,D2,FF,AD,A3,94,F0,0R,A9,08,20,D2,FF,A7,FA,20,D2,FF,20, 
E1,FF,D0,05,69,68,40,04,8C,C8,4C,D2,8B,4C,D4,8E,00,00,00,20, 
CE ‚80,49 ,57,A0,90,4C ,EC,80,A9,00,85,7B,A7,75,85,90,A2,00,BE, 
BF ‚94 ,BE ,3E,94,BE,A2,94,9E,A3,74,8E,90,94,BD,D7,8C,90,74,%74, 
EB ,E0,07,D0,F5,49,FF ,8D0,90D,74,R0,00,B1,9E,10,03,EA,EA,EA,C9, 
76,F0,22,99,34,94,C8,EE,9B,74,AD,7B,94,0D,93,74,90,E6,88,8C, 
RD, 93,B1,9B,07,20,F0,09,CE,9E,74,88,D0,F4,AC,BD,93,8C,BD,73, 
98 ,38,65,9B,95,9B,A5,9C,69,00,85,9C,A0,00,AD,70,74,09,FF,DO, 
03,20,E8,8D,20,1D,8E,AD,BD,73,8D,BC,93,49,34,85,49,49,74,85, 


AA ,20,D0,98,20,2C,8E,AD,7D,74,CD,98,74,70,03,20,70,8D0,38,A5, 


9B ,„ED,BE,73,85,47 ,A5,9C,ED,BF ,73,05,A47,F0,1D,70,1B,A7,00,8D, 
BE „94 ,8D,77,94,20,90,8D,20,E1,FF,FO,FB,A9,01,20,035,FF,20,CC, 
FF,AC,BE,80,40,3%,80,03,4D,47,01,41,01,01,0E,0F,12,18,00,00, 
00 ,00 ‚00,00 ,00,00,A0,00,81,26,AA,C8,B1 ,26,88,91,26,08,84,91, 
26,60, 60,00,B1,26,29,3F ,F0,09,C7,1B,B0,06,P1,26,47,40,71,26, 


Gomputs mib 


3502 
2780 
2704 
3023 
2378 
3a2 
2537 
2420 
2996 
2400 
2702 
3071 
Rynle 
3118 
3231 
2767 
2557 
24353 
2347 
297539 
ır16& 
1762 
1908 


4/86 


60368 
60369 
60370 
60371 
60372 
60373 
60374 
60375 
6037& 
60377 
60378 
60379 
60380 
60381 
60392 
60383 
60384 
60385 
60586 
60387 
60388 
50389 
60390 
60391 

60392 
60393 
60374 
60395 
60396 
60397 
60398 
60399 
&0400 
60401 

60402 
60403 
60404 
60405 
60406 
60407 
60408 
60409 
580410 
60411 
60417 
60413 
60414 
60415 
50416 
60417 
60418 
50419 
60420 
60421 
60422 
60423 
60424 


4/86 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


_Programme 


40 ,60,84,85,A7,29,40,04,05,47,27,BF ,985,47,29,20,49,20,0R,05, 
A7,60,00,00,00,40,11,8C,00,4C,D4,3E ,4C0,C4,8C,49,04,8D,A1,94, 
AO ,07,AD,8D,02,29,01,F0,368,20,CE,30,49,3D,A0,90,20,EC,80,20, 
E4,FF,FO,FB,38,E9,30,07,03,90,D9,C9,08,B0,D5,8D,A1,74,20,CE, 
80,49,47,R0,90,20,EC,80,20,E4,FF,FO,FB,38,E9,30,30,BE,C9,0A, 
BO ,BA,A8,A9,01,AE,A1,94,20,BA,FF,A9,00,20,BD,FF,29,07,8C,20, 
CO,FF,A2,01,20,09,FF,90,98,4C,C04,80,38,AD,96,74,ED,7D,74, AB, 
88,88,F0,0N,30,08,A7,0D,20,D2,FF,88,DO,F8,AD,8F ,74,F0,13,BD, 
BC,73,AD,72,74,85,49,AD,93,94,85,AR,20,1D,8E,20,D0,88B,A9,0D, 
20 ,D2,FF ,20,D2,FF,20,D2,FF,AD,9A,74,D0,14,20,CC,FF,20,CE,80, 
A9,61,A0,70,20,EC,80,20,E4,FF,FO,FB,20,07,8C,42,01,20,C9,FF, 
EE,7C,74,AD,8E,94,F0,13,8D,BE,73,AD,90,94,85,A9,AD,91,94,85, 
AR,20,1D,8E,20,D0,8B,A9,0D,20,D2,FF,AC,97,94,8C0,90,74,88,58, 
F0,0A,30,08,49,0D,20,D2,FF,88,DO,F8,60,A9,20,AC,94,74,8C,98B, 
74 ,20,D2,FF,88,DO,FA,60,AC,99,94,18,98,6D,9D,94,8D,7D0,74,A7, 
0D,20,D2,FF,88,DO,FA,60,AD,2D,02,09,05,F0,05,AD,A0,94,DO,7E, 
29,CE,80,A9,77,R0,90,20,EC,80,20,44,89,D0,59,4C,BE,80,A0,00, 
A2,00,BD,7E,73,20,DD,80,D1,97B,F0,02,A2,FF ,C8,D0,0B,E6,9C,AS5, 
9C,CD,BF,93,F0,02,B0,23,£8,EC,C1,93,D0,£0,18,93,65,7B,95,26, 
AS,7C,69,00,85,27,38,A5,26,ED,C1,93,85,26,A5,27,E9,00,85,27, 
4C,FB,83,20,CE,80,49,82,A0,90,20,EC,80,49,01,8D,BA,93,A9,00, 
8D,A0,74,60,A9,01,8D,A0,74,8D,BA,93,A9,00,85,9B,A9,975,85,9C, 
4C ,SE,8E,A5,26,85,98,45,27,85,7C,40,01,4C0,60,8E,80,97E,94,29, 
7F,20,0F,8D,C9,31,90,0E,C09,3A,BO,0A,29,0F,AA,CA,BD,DE,SC,20, 
D2,FF,4C,FD,8B,78,A9,00,8D,1A,D0,8D,21,D0,A9,31,8D,14,03,A9, 
EA,8D,15,03,A9,FF,8D,0D,DC,58,60,AE,A2,974,F0,19,85,R7,29, FF, 
C7,41,90,12,C7,58,BO,0E ,AA,AS,A7,29,80,49,80,44,44,85,47,8A, 
05,47 ,60,00,00,00,00,00,00,00,00,00,00,0E,08,9E,20,20,20,20, 
20,20,20,20,20,20,20,20,20,04,41,54,41,D4,45,598,54,20,36,54, 
00,49,93,20,D2,FF ,4C,BE,80,00,0D,02,55,46,46,45,52,20,03,40, 
45,41,52,45,44,00,20,02,55,46,46,45,52,20,06,55,4C,40,00,0D, 
C4,45,40,45,59,45,20,28,D7,20,D3,2C,D0,29,00,34,20,01,52,35, 
20,57,4F ,55,20,53,55,52,45,3F ,20,28,D9,2F,CE,29,34,00,0D,05, 
D2,C1,D3,C5,20,01,C0,C0,20,D4,05,D8,D4,00,0D0,CB,45,57,3A,00, 
0D,D5,41,56,45,3A,00,0D,D4,41,50,45,20,05,52,52,4F,52,00,0D, 
03,54 ,4F,50,50,45,44,00,0D,D6,45,52,49,46,59,20,05,532,57,4F, 
52,00,0D,CE,4F ,20,05,52,52,4F ,52,53,00,93,0D,20,12,D4,92,41, 
S0,45,20,4F ,92,20,12,04,92,49,53,48,3F ,00,0D,CC,AF „41,44, 30, 
00,0D,06,45,52,49,46,59,54,00,0D,D0,52,45,53,53,20,12,D2,C5, 
D4 ,D5,D2,CE,92,00,24,30,0D,CE,4F,20,D2,4F,AF,4D,00,0D,CE,4F, 
20,D4,45,58,54,20,49,4E,20,02,55,46,46,45,52,2E,00,0D0,04,45, 
56,49,43,45,20,23,00,0D3,45,43,4F „4E ,44,00,20,C01,44,44,,532,2E, 
20,25,00,00,D0,52,49,4E,54,49,4E,47,00,0D,CE,45,59,54,20,53, 
48,45,45,54,2C,20,12,D2,C5,D4,D5,D2,CE,72,00,00,C8,55,4E,54, 
20 ,46,4F ,52,3N,00,0D,CE,4F ,54,20,C06,4F ,55,4E,44,00,0D,20,20, 
20,20,20,20,20,07,52,49,54,54,45,4E,20,42,59,20,D3,2E,D6,41, 
4C,45,4E,54,49,4E,4F ,00,00,00,00,00,93,0E,00,20,20,20,20,20, 
20,20,20,20,20,20,02,45,46,45,48,40,53,55,45,42,45,52,53,49, 
43,48,54,0D,0D,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, 
C3,D4,D2,CC,20,28,3A,0D,0D,01,3D,C7,52,2E,2F,CB,4C,2E,2D,D3, 
43,49,52,47,46,54,20,20,C6,3D,D4,45,58,54,20,49,4D,20,072,55, 
46,45,45,52,00,C2,3D,C2,49,40,44,53,43,48,49,52,40,46,41,52, 
42,45,20,20,D2,3D,C2,55,46,46,45,52,20,49,4D,20,03,50,45,49, 
43,98,45,52,00,03,5D,D4,41,42,55,40,41,54,4F ,52,20,28,35,29, 
20,20,20,20,D8,3D,DA,45,49,43,49,45,4E ,20,C01,35,33,54,41,55, 
53,43,48,0D,C4,3D,04,45,4C0,45,54,45,20,28,D7,2C0,D3,2C,D0,29, 
20,20,20,CB,3D,02,55,46,46,45,52,20,47,45,40,4F ,45,33,43,48, 


Compure mib 


1522 
1761 
2147 
316? 
za40 
2512 
30353 
2713 
2637 
53037 
2902 
310% 
2617 
2637 
30153 
2773 
2442 
2778 
2995 
214 
et 
2702 
2258 
2177 
2530 
2577 
7358 
576 

1287 
2095 
1435 
1852 
1350 
2745 
1508 
1753 
1650 
1515 
1663 
214342 
1574 
14753 
1402 
22472 
1520 
1800 
858 

1352 
723 

2189 
1717 
1641 
1487 
1337 
1678 
1970 
1548 


23 


werkstatt 


60425 
[18 5. Dur) 
66427 
50428 
ii 60429 
60430 
5604531 
60432 
66433 
46454 
60435 
ode 
60437 
60438 
60437 
40440 
Aoaal 
0442 
AOAHS 
80444 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


54 ,‚0D,CA,3D,D3,4F ,55,4E,44,20,05,47,4E,2F,01,95,33,20,20,20, 
20.09 ,30,09,4E,53,45,52,54,20,05,49,9E,2F ,01,55,53,0D,DA,3D, 
DZ,43.48,52,49,46,54,00,46,41,52,42,45,20,20,20,20,20,08, =D, 
03,55,43,48,34,20,D7 ,4F „52,54, 0D ,D6 ,3D,D6,45,52,47,46,57,20, 
20,20 .,20.20,20,20,20,20,20,20,D0,3D,D0,52,47,4E,54,45,52,0D, 
D3.3D,D3,41 „56,45, 20,20,20,20,20,20,20,20,20,20,20,20,20,5C, 
3D.C4.52,35,43,4B,2D,C06,4F „52,40,41,54,45,0D,0C,5D,CC,AF,41, 
44.20, 20,20 ,20,20,20,20,20,20,20,20,20,20,5D,3D,C6,32,453,97 
45.52.20,03,50,45,49,43,48,45,52,0D,5E ,3D,04,49,52,45,43,3%, 
AF 52,59 ,20 ,20 ,20,20,20,20,20,20,5F ,3D,CC,47,45,55,45,99,5%, 
20.DA.45,49,43,48,45,4E,0D,0D,20,20,20,20,20,20,20,20,20,20, 
00.00,00 ,00,00,00,00,00,05,3D,CD,45,4E ,55,45,2D,C1,59,33,97; 
41.42.45,0D,0D,20,20,20,20,20,20,20,20,20,20,20,20,20,4,CE 
2D.D4,41,53,54,45,4E ,S5A,0D,0D,06,31,20,06,35,20,C06,59, 50,05, 
55.52 ,53,4F ,52,20,55,4E,54,45,4E,20,5R,55,4D,20,D7 ,20,D3,@0 3 
D0.00,06,00,32,20,C06,34,20,06,36,3D,C3,55,52,53,4F,92,20,9% , 


42,45.4E,20,50,35,4D,20,D7,2C,D3,2C,D0,0D,06,37,2F,06,58,2D, 
C3.55,57,53,4F ,52,20,D4,45,58,34,45,4E ,44 ,45,2F 508,47 ,90,95, 
20.20.20,20,12,D2,C5,D4,D5,D2,CE ,92,00,00,00,00,00,00,00,00, 
00,00,00,00,00,22, 34 


1765 
1771 
1432 
1728 
1278 
1211 
19871 
1029 
1445 

320 
1024 
ı241 
1046 
ı811 
1567 
1837 
1877 
1347 
1540 





Floppy-Verwaltung___für den Commodore 64 


Dieses Anwendungsprogramm stellt eine 
nützliche Hilfe im Umgang und Einsatz 
von Disketten dar. Sie versetzteine forma- 
tierte Diskette in den Zustand des Versie- 
gelns, d.h. sie ist schreibgeschützt. Ge- 


nauso kann sie natürlich auch entsiegelt 
werden, also der Schreibschutz wird wie- 
der aufgehoben. 

Durch dieses Programm werden die bis- 
herigen Versiegelungen der Diskettenlö- 


dert werden. 















































m REM een 75? Ze 2738 + REM PROGRAMMENDE 

1 REM # STEFAN WEBER #* £178> 2 OPEN 1a," 1® 

2 REM * GELLEPERSTR.46 # <123> >90 OPEN 2.8.2 Aa 

S REM =» Als@ KREFELD 12 * <108> _ Fr 

a a nhrnneneaners 79» 100 PRINTAL, H-WICHRSLICHRECLICHRS LICH 

5 rem <148> 11B PRINT#I,"ULCSPACEFZISPACEIBTSPACEILG 

& PRINT "tCLEARI” «36> epAck3a" SPACEFOTSPACE. 

B PRINT "tRED HOME RVSON SPACEZI=ISPACE2 nn , 

3 (0) ISPACEISTEFANTSPACE}WEBER<SPACEIKREF m PRINTEI,"B PESRACEIZTERAGERT 

ELDISPALEI19BGLSPACEBIHISPACES" 2204 > ‚As; . 

12 POKE 53288,11 » POKE 532B1,7 <203> ur U2{SPACEIZISPACEHATSPACEI1G 

12 PRINT = PRINT = PRINT : PRINT <B4> reizen 

15 PRINT "ORANGE SPACELIIDISKETTEISPACE a ee 1 cLosE1 

}VERSIEGELN" “2A3> _ F 

3 1 165 PRINT"£RVSON SPACE13I*#{SPACEZIO.K. ( 

38 PRINT "£SPACE12I--- <93> On EZIKHLSPACEIS E32" 

Ze RınT N opacEs DISK{SPACE} VIGRANGEIE an 170 PRINT : PRINT ; PRINT 

25 FR +DISKISFATE 175 PRINT "{SPACESINOCHTSPACEFEINETSPACE 

Be tSPACEIODERISPACEI EtORANGEINTSIEBELN” <209> SPACE 
ORANGE. IDISKETTE<SPACEITISPAGEIJ/NISPACEI} 

30 PRINT z PRINT : PRINT <2197> ee en HEN 

75 PRINT "tSPACEI3 RYSON}TASTETSPACEIDRU CHEN Beton g G0T0 8 

ECKENIF3}" = PRINT 2 PRINT <21> Er Braune TEN Be=tAn 3 BOTO 75 

ad GET At : IF Ag="" THEN 48 <251> A arg 188 

SO IF Ag="y® THEN As="-" 5 G0TO 88 <111> 

ua IF A$="E" THEN A$="A" : GOTD 88 <17> 
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Gemputhe mib 


cher überflüssig, und der Schreibschutz- 
zustand kann ständig durch einfache 
Handhabung dieses Programmes geän- 


x197> 
x115> 
<12> 

<156> 


“46> 


<231> 
<178> 
“28> 


z11> 
“213> 
<19797> 


<2a2r 
<1B5> 


<222> 
<119> 
x24> 
<34> 
“277 


4/86 






Gary erhält von seinem Chef den Auftrag, 
ein Neubauviertel zu verkabeln. Er muß 
dazu die auf dem Bildschirm erscheinen- 
den Häuser und Kabeikästen miteinander 
verbinden. Das Ganze geschieht im Ak- 
kord, und Gary muß darauf achten, daß er 
nicht mit den verschiedenen Kabeln zu- 
sammenstößt oder an einen der Kabelkä- 
sten donnert. Dies hatnämlich einen Kurz- 
schiuß zur Folge, und das Material wird 
unbrauchbar. Der Chef der Firma beob- 


Programme 


Für jede Verbindung erhält Gary 50,- DM 
gutgeschrieben. Gelingtes ihm, in der vor- 
gegebenen Zeit alle Häuser miteinander 
zu verbinden, erscheint nach einer kurzen 
musikalischen Pause sein nächstes Ar- 
beitsfeid mit mehr Kabelkästen. Zum Ver- 
kabeln selbst muß Gary in die Einbuch- 
tung des jeweiligen Hauses fahren. Ist das 
Kabel richtig angeschlossen worden, er- 
scheint ein kurzer Liehtblitz im Hinter- 
grund. 


























128 
iu 
=B 
40 


u 
7a 
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achtet Gary ständig und sagt ihm, welche 
Häuser er nacheinander verbinden soll. Gesteuert wird Gary mit dem Joystick in Port 2. 






G0T01408 

GOSUB6B: X=X+R: Y=Y+Hı IFX=SORY=WTHENS33G 

LOCATEX „Y: IFRDOT (2) =1THEN2BB 
IFL+1ANDITHENLOCATEX „ Y+Hz IFRDOT (2) =1 THENLOCATEX+R , Y: IFRDOT (2) =1THENTEOR 
DRAW1,X,YıU=U+1:G0T020 

J=J0Y (2) : IFJ=. ORI>1270RJI=LTHENRETURN 

L=J: ONLGOTOS0, 79, 198,110,170,130,140,159 


90 H=-1:R=.:RETURN 
78 R=i:H=-1:RETURN 
124 R=1:H=,: RETURN 


118 R=1:H=1: RETURN 
128 R=. :H=1: RETURN 
138 R=-1:H=1:RETURN 


1490 R=-1:H=.: RETURN 
158 R=-1:H=-1:RETURN 


169 COLORB,21:COLOR1,2:C0LOR4,15,3:RU=1:V7=2 
17@ GRAFPHICZ,1:BOX1,70,28,250, 178 

182 FORZ=1TOIB#RU:A=INT (RND (1)#162) +74: B=1NT {RND (1192) +25 

170 EOX1,A,B,Ar1B,B+1@,45:BOX1,A+1,B+1,A+9,B+9 45: NEXTZ 

za2 EOX1,140,5,180,20:E0X1,140,130,198,145: DRAWA, 140,2070130,28 

218 DRAWA,149,13210180,130:BOX1,55,40, 70,98: BOX1 ,252,60,265,90 

220 DRAWR,79,6@1T070, 98: DRAWB ,258,6010250, 70 

238 DRAWM,168,79T0198,79: DRAWZ, 162, 8270190,89:DRAW@, 160 ,BATBLFQ,81:CHLORI „8,4 
240 CHAR1,8,9, "HAUS 1"2CHAR1,34,9, "HAUS S":CHAR1,10,1,"HAUS 2":CHAR1,10,17, "HAUS 
4 “ " . 

258 ZU=INT{RND(1)%*4)+12 IFFi(ZU) <>OTHENDSB 

268 READA,B=P (ZU) =A:0 ZU) =B:l=0+1: (ZU) =D: IFOS >ATHENZSD 

27@ COLOR1;2:D=R: VOLB: X=1&0: Y=8@: R=1:H=0: GOTOSSO 

289 CHAR1,15,8,"0H GARY |" rVal+le IFV=VZTHENSOR 

292 PU=PU+-INT (UI) CO+RU) = PRINT"DM : "PU: FORK=1TOSAQ0: NEXT: SOTO420 

32a FRINT"SSRSEFEUERT!' mE" SFRINT"DM = "PU+INT(U/1D) 8 (O+RU) :PRINT"SPIEL (J/N)" 

3i@ GETKEYYE: IFYS$< SH" JTANDYS<>"N"THENZIB 

328 IFY$="N"THENEND: ELSERUN 

3398 IFU>SABTHENFRINT"EIIDU TRDEDLERER" : GOTO23@ 

348 0=0+1:5=P (0) :W=8 (0) : IFO=STHENS7O 

350 PRINT"GARY! HAUS"ST (0) : FORK=1OBZTOUSTEP- IB: SOUNDI ,K,1:NEXT: PU=PU+S8 

362 FORI=3TO1&:FORT=3T07:COLOR4,1,T:NEXT:NEXT:COLOR4,1:50T050 

37@ PRINT"EBEBRETIITCHLASSE GARY ! HNEUER AUFTRAG FOLSTE" 

382 PU=PL41B99-U+SB*RU: PRINT"RDM : "PUs =RU=RU+1 

394 IFRUY/S=INT (RU/3I THENVZ=VZ+HLEPRINT" 
422 READN,M: IFN=BTHENA4?B 

418 SOUND? „N,M: BOTO422 

422 PiN)=B:Pi2I=B:P(F)=0:Pt4)=B: 0-0: U=R: RESTORE: L=0: GOTO17@ 
438 DATASB,250,498,10,260,250,400,140 

448 
450 DATAS96,290,643,48,571,48,453,42,571,42,516,50,8,8 


BZUSATZCHANCE a" 5 


DATA453,29,571,20,596,20,643,100,453,20,571,20,596,20,643,120,453,20,571,2@ 


Gompube mib 








Zeitschriften und die dazuge- 


hörenden Programme aus 
dem Jahrgang ’85 können Sie 
im Moment noch nachbestel- 
len. Aberbeeilen Siesichbiltte 


software-service 


gaben dezimiert sich von Tag 
zu Tag. Wenn Sie eine voll- 
ständige Zeitschriften-Samm- 
lung haben wollen, nutzen Sie 








mit Ihrer Bestellung! unser Angebot und bestellen 
Sie noch heute. 
rer 
| Heit5/85 Heft 6/85 Heft 7/85 

Commodore Gemmodorn j Commodors Gemmodors 
Bestell-Nr. GOM G 1/1 16,- DM | Bestell-Nr. COM TC 2/1 16,- DM | Bestell-Nr. COM CK 3/1 16,- DM : Bestell-Nr. COM CH 4/1 16,- DM 
Bestell-Nr. COM B 1/1 20,- SM | Bestell-Nr. COM D 2/1 20,- DM | Bestell-Nr. GM CD 3/1 20,-DM | Bestell-Nr. COM CD 4/1 20,- GM 
Schneider Schneider Schneider Schneider . 
Besiell-Nr. GOM S 1/1 16,- DM | Bestell-Nr. COM S 2/1 16,-0M | Bestell-Kr. COM SK 3/1 16,- DM | Besiall-Nr. COM SK 4/1 16,- DM 

Bestell-Nr. GEM SD 3/1 39,- DM | Bestell-Nr. COM SD 4/1 39,- DM 
nr nase innen an 
Melt 9/85 Heft 10/85 Heft 11/85 Heft 12/85 
Gommodore Commodore CGorımodare Commadore 
Bestell-Nr. COM CK 5/1 16,- DM | Bestell-Nr. COM CK 6/1 t6,- DM | Bestell-Nr. COM CH 7/1 i6,-DM | Bestell-Nr. COM CK 8/1 16,- DM 
Bestell-Nr. COM CD 5/1 26,- DM | Bestell-Nr. COM CD 6/1 208,-DM | Bestell-Nr. GM CD 7/1 20,- DM | Bestell-Nr. COM CH 8/1 20,- DM 
Schneider Schneider Schneider Schneider 
Bestell-Nr. COM SE 5/1 is,- DM | Bestell-Nr. COM SK 6/1 16,- DM | Bestell-Nr. COM SK 7/1 15,- DM | Besteli-Nr. COM SK 3/1 15,- DM 
Bestell-Nr. SOM SB 5/1 : 39,- DM | Bastell-Nr. COM SE 6/1 39,- GM | Bestell-Nr. GOM SB 7/1 39,- DM i Bestell-Nr. GOM SD 3/1 39,- DM 
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Wenn Sie noch Software für Ihren Gompu- 








ter suchen, dann sehen Sie einmal in der 
gegenüberliegenden Bestelliste nach und 
überzeugen Sie sich von unserem riesigen 
Programm-Angebot. Hier finden Sie von 
spannenden und interessanten Spielpro- 
grammen, über sinnvolle und anspruchs- 
volle Anwendungsprogramme, bis hin zu 
nützlichen Tips & Tricks alles, was zum 
praktischen Einsatz eines Computers er- 
forderlich ist. 


Heit 1/86 

Gemmodare 

Besieli-Nr. CGM CK 1/2 16,- DM 
Basteli-Nr. COM CO 1/2 20,- DM 
Schneider 

Bestell-Nr. EGM SK 1/2 16,- DM 
Besieli-Nr. EG SD 1/2 39,- DM 
Heft 3/86 

Commesore 

Bestell-Nr. EGM CK 3/2 16,- DM 
Bestell-Nr. COM CD 3/2 20,- DM 
Schneider 

Besteli-Nr. C0M SK 3/2 16,- DM 
Bestell-Nr. COM SD 3/2 39,- DM 








Ihre Bestellung wird innerhalb nur Beachten Sie hitie bei telefoni- 


han Bestell 
Du 


nach Eingang in unserer Software-Abteilung be- 
arheitet. 


Jeder Kunde hat das Recht einer "Ladega- 
rantie“. D.h., Sie können fehlerhafte oder 
unladhare Programme zum Umtausch an uns 


zurücksenden. Für Ihre Bestellung füllen Sie 
bitte die beiliegende Bestell-Karte aus. 


heit 2/86 





bommedore | . . 
Besteli-Nr. COM CK 2/2 ıs-om | Bitle heachten: 
Besteil-Nr. COM CD 2/2 20,- UM | 

Schneider | Der Preis für den Datenträger gilt nur 
Bestell-Nr. COM SK 2/2 16,- DM . . . 
Besiell-Nr. COM SD 2/2 39,- BM |. in Verbindung mit der Einsendung des 
Aus diesem Heft Bastelleeugons. Ohne Gaupen erhöht 
Commodore sich der Preis entsprechend (24,50 
Bstell-Nr. MERK = om | DM.pra Kassette, 20,50 DM Schnl- 
Schneider der-Diskette). 

Bestell-Nr. COM SK 4/2 16,- DM 

Bestell-Nr. COM SD 4/2 39,- DM 





Gompute mi 


software-service 


Preis/ Preis/ Bestell-Nr. | Programm Freis/ Preis/ Bestell-Nr. 
Kassette Diskette Kassette Diskette 










Programm 



































Multi-Key/5-Tcot 64/ Bestelischein/Glücky 8,50 DM 15,- BM Yo 
Interrupt-Pregramme 16,-- DM: 21,-- DM LG 2/85 Rultigranb/All Rammer 11,-- DM 15,50 DM Yn 
Spritehilte/Diskloader/ Zyklo/Meteorit 11,-- DM 19,50 DM v8 
Birectory 21,-— DM - UG 3.1785 Sarten/Schlofl Gruselstein 14,-— DM 19,50 CM ya 
Tape-Directory/Asman/ Fressman/Outlaw 14,-- DM 12,50 DM Y101 
Data-Generator 15,—- DM 21,-- DM UC 3.2/85 Prost/Buffalo Bil! 14,-- DM 19,50 DM vızı 
Fast Load 18,-- 9M UG 4/84 Joy Man/Powerpack 14,-- DM 19,50 DM v22 
Diskmoniter/Zeichensatz 28,—- DM - UG 5/85 Dar rasende Malocher/ 

Reassembler/Maskengenerator 15, DM 20,-— DM UC 6/85 Frankie g0es to Pharan 14,-- DM 19,50 DM v32 

Dei 64/Treiberprogramm RKatron/Ohst 14,-- DM 19,50 DM v2 

für 1526/MPS 302 Decelevator 14,—- DM 19,-- DM UG 7/85 - | Race On/Gauy 14,-- DM 19,50 DM v52 
Sugertapedirectary/Renew/ Kürburg 3D/Güsi “ 14,-— DM 19,50 DM Y62 
Kontroltabirage 15,-- DM - UC 8/85 Breaker/Expulsion 14,-— DM 19,50 DM v2 
Video-Utifities, Bröückenbau/Jange 16,-- DM 21,50 CM yı3 
Muilti-Basic 43, Bildeditor 17,-- DM 23,-- DM UG 9/85 Inka-Schatz/ 

Better Basis/Autonumber/ Miner der Fassadenstreicher 16,-— DM 21,50 DM v23 
Hardcopy/Terminalpregramm 17, DM 23,-- DM BG 10/85 Zykio/Geldsammier 11,50 DM - BE/T-I 
Speicher-Bszillaskop/ . Star-Wars/Punktefresser 14,50 DOM - HE/V-2 
Makro-Assembler/Change Type 49,-—- DM 54,-- DM UG 1/86 Gatch the Fish/Mister Jump 14,50 DM - HG/V-3 
Asactor/Goncentration/Datenbank 17,50 DM 23,50 DM HG/C-1 Ehost's Egus/Fox Hunt 14,50 0M - RG/V-4 
Warlords/Caverns of Deatlı 14,50 DM 19,50 DM HG/G-2 Gollertor/Break Gut 14,50 DM - KG/V-5 
Alien-Destroyer/Duell 24,50 DM 29,56 DM HL/E-3 8-Bert/Salvage Crew 16,50 DM - HG/V-6 
Ocean Game/Tennis 77,50 DM 23,50 DM HE/E-4 Bag Fight/Schwitzhad 16,50 DM - HG/Y-T-4 
The Caves 17,50 DM 23,56 DM HC/G-5 Earth Rescue 14,56 DM - HE/Y-2-4 
Eardener 17,50 DM 23,50 DM HE/T-6 Tank 14,50 DM - HO/AN-3-4 
Olympic Biathlon/ Sprites/Space-Battle 13,-- DM 19,-- DM UV 2/85 
Struggle for Life 24,50 DM 29,50 DM HL/G-2-4 Grafik-Painter 18,-- DM _ UV 5/85 
Pole Position/Save VIG-Dlack 9,-- DM - IW 6/85 
your teetä/Pust 24,50 DM 29,50 DM RC/C-3-4 Decelerator j 8,-- DM u UV 7/85 
Uio/’Skateboard Sam 24,50 DM 29,50 DOM HG/E-1-4 Joypaint 12,-- DM - UV 8/65 
Mauern/Wiiderstand 8,-- EM 15, DM G# Bisassembler, Old-Programmie 10,-- DM - 9/85 
Spacs-Lomets/Erilspalte/ Biregtory/Farb-JRQ 10,-- DM - BY 10/85 
Sprite-Data 15,—- DM 23,50 BM 651 

Autestart/Besteilschein/ 

Roadjainter 16,50 DM 23,50 EM 661 

Hardcony/Spage-Fighter/ 

Data-Generator 15,50 04 19,50 DM er 






























Mosster-Attack/Biock- 
Painier/Epson-Brucker 16,50 DM 23,30 DM E81 
Projekt/Batenbank 16,-- DM 23,50 DM cs 
Spiders/The Basic 16,50 DM 23,50 GM cıcl . 
High Nson/Skeet/ AutDrennen N, DM - US 3/85 
Grafik-Designer 17,50 DM 23,50 IM 6121 Uriversal-Natei VI 9, BM - US 4/85 
Painter/Star-Batete/Editor 17,50 DM 23,30 DM c22 Computerschrift/Symbal-Swap 16,-- IM - US 37/85 
Wiüstenrzäy/Jet-Pag/ Keyboard Taelkit/Farhilecsdiereng 11,-- DM - US 6.1785 
Black Moore Bastla 1750 0M 23,50 EM 632 Madin g,-- DM - US 6.2/85 
Brieftauhe/Cadelon 15,50 0M 24,50 DM a2 Painter/Bux-Befehl 14,-- DM 24,—- DM US 7/85 
Riiter Erik/’Grang Prix Spritehilfe 19,50 DM 24,50 DM e52 Haschinensprache-Menitor/ 
Firebird/Higk Music 24,50 DM 20.50 DM c62 Disk-Hilfe 15,-- DM 25,-- DM US 8/85 
Meonsweeper/Scutü 24,50 DM 29,50 DM £72 Basie, Maschinen-Kit 12,-- DM 22,-- DM US 9/85 
Tron/Mercariaus 28,50 DM 29,50 DM ©13 Backup/Birectary/ 
Interceptar-Base/Scheiter 24,50 05M 29,59 EM 623 Eilinse/Disk - 27,-- DE DS 10/35 
j Bata-Genarator/Grafik Toglkit/ 
7 r Si B / ASEI List (Turbo Pascal) 15,-- DM 26,-- DM US 1/86 
fu ar an Fallschirmspringer 9,-- DM - HG/SR-3 
eu m unserer © are este r. Geisierschlof 9,-- DM - HE/SR-4 
Zeickendesigner r2,50 DM w HG/SRA-5 
üiste der Hini Gar Racs/Interceptor 3 D 17,50 DM 26,50 DM HE/ER-6 
Secret Agent 12,50 24,50 HC/SR-1-8 
Space Invaders/Mini Pac/ . 
A Otti's „Sound“ 17,50 DM 27,50 DM KG/SR-2-4 
Ei Samson und die Kisten/ 
Die verflixte 15 17,50 DM 27,50 DM HG/SR-3-4 
Super-Miner - 13,-- DM 24,-- DM SR 42 
CPC-Bert 14,-- DM 24,-- DM SR 52 
Fantasy-Louniry Ganan’s Gastie 15,50 DM 25,50 DM SR 52 
Horror-Gastle 18,-- DM 23,—- DM 023 Snider’'s Mace 16,58 25,50 DM SR 72 
Zeichendesigner 14,-- DM w u0 8/85 Schneider Panik/ Killershin 18,50 UM 28,50 BM SR 13 
OLB-Rauline-Merge-Routine/ Horror-LCaves/ 
Change Type 14,-- 19,-- 40 1/86 Midnight 19,50 DM 28,50 DM $A 23 





A186 Gompute mik 3 





programme 


Ein Computer-Weltraumspiel 









nach alt-hergebrachter Manier 


Ein Killersatellit ist unterwegs im Weltraum und hat die Aufgabe, die Erde vor einem Holocaust zu be- 
wahren. Atomraketen fliegen auf verschiedene Länder der Erde zu und können nur von dem Kiltersatelliten 
vr gestoppt werden. Diesen Killersatelliten müssen Sie steuern und die einzelnen Raketen durch Abfeuern einesLa- 
serstrahls zerstören. Gelingt es!hnen nicht, die Raketen zu beseitigen, explodieren diese miteinem Atompilzam Boden, und die Erde 
wird nach mehreren Einschiägen zerstört. Gehen Sie also sehr sorgfältig vor und schützen Sie die Bewohner der Erde vor dem Atom- 
tod. Es liegt eine große Verantwortung auf Ihnen und Ihrem Satellit. 





a  ErERGESAGRPSRRIFO 
Der Killersatellit wird mit Hilfe des Joysticks gesteuert, und durch Druck auf die Feuertaste wird der Laserstrahl abgefeuert. 





102 REM BEER 238 REM * WALSOFT * 
11a REM # * z4B REM * * 
130 REM * * “8 * 250 REM * GESCHRIEBEN VON * 
14@ REM * * ee Ze * 270 REM * Ä * 
158 REM * a ee EZ; * 288 REM * SANDRO WALLTSCH * 
160 REM * a. * * 290 REM * * 
170 REM * “*r * 8 * za REM Seas ENNERNRRNE 
188 REM # #r+ Er * #* z1®8 : 

17@0 REM * * za REM Her 

88 REM * * =z8 REM #** TITELBILD *#*#* 

zi@ REM # COPYRIGHT {03 197865 * za REM essen 

zzG REM * Er * 





358 LCOLOR@,F,5:EDLOR4,15,1:C0LOR1,12,32SCNELR= PRINT 
362 FRINT" a 









=z78 FRINT" ” B u fh 
=80 FRINT" ° = u, I” ” 
398 FRINT" “, “. 1% l Eu 
aaa FRINT" F w = | IR} | u u 
418 FRINT"'I-. Wr m i ir _ i ag ww" 
4283 FRINT'I PO ww H re - Be Bu | ae 
z& PRINT" | 4 i gu ww 5 1 Fi 
2440 FRINT"' DB 3 i Fe u | I t ge 
asa PRINT" =D Wo“ i m | 2m | wow" 
442 PRINT" Dr = i a @ | sm I Bo" 
478 FRINT" a u _ i u | wma 1 1 
480 FRINT" ea a | Fr u | Ku =M l u 
493 FRINT" Er a | ) waı De | ww m" 
sag PRINT" ig w E Fe - Bu | we I ru 
sie FRINT” Fa = I vw. WW MM 1 Te 
:S2@B FRINT" nn u m I gm u m 1 ww 3 ww" 
30 FRINT" ” u l DB u WE E Fr 
548 FRINT"E Sn: un | gg m IF su | w mw" 
SS58 PRINT" = I 4 en Br u. . ga m 
SQ FRINT" © id [2 Dr u Sue 
S7’2 PRINT" "5 ur "ll or Pa 1 


ze vVOLz:DO 

592 REM teen 
- 5A@ REM ##* MUSIK #8# 

610 REM een 







Er” 
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429 
658 
“4 
63540 
= 1-15 
672 
689 
50 
7a 
zıa 
728 
758 
748 
7523 
740 
778 
78 
792. 
gun 
818 
[= pe} 
350 
Bag 
859 
848 
878 
850 
879 
F7a0 
710 


programme_ 


READX „Y: IFX=-1 THENGOSUBS73: ELSESOUNDI ,X, Y=LOOPUNTILX=2 
DATASS4,15,834,15,854,15,834,15,854 ,15,798, 15,834, 15,818, 15,779,3@0,1015,38 
DATAS9&, 15,685, 15, 7780,15, 798,30,18015,38,685, 15, 739,15,798,15,810,390,1815,50 
DATA685, 15,954, 15,834,15,854,15,834,15,854,15,798,15,8354,15,910,15,778,30 
DATA1915,32,596,15,695,15,77@,15,798,38,1015,39,685,15,810,15,798,15,770,45 
DATA-1,0 

REM KERN H HN FR 

REM *** SPIELBESCHREIBUNG #** 

REM FREU EHEN HI HN HER HR 


IFAF=" |" THENCLR: GDOSUB878: ELSESCNELR 
SCNELR:FRINT" ib u Zu 
PRINT" SFIELBESCHRE TBUNG" 


PRINT"BEBRXEINE FEINDLICHE GROSSMACHT FEUERT RAKE-" 
PRINT"ETEN AUF IHR LAND AB. SIE MUESSEN VERSU-" 
PRINT"BEHEN, EINEN IM WELTALL STATIONIERTEN" 
PRINT"ESATELITEN IN DIE RICHTIGE FOSITION ZU" 
PRINT"EBRINGEN, DAMIT EIN LASERSTRAHL, DEN SIE" 
PRINT"EVOM SATELITEN AUS ABFEUERN KOENNEN, DIE" 


PRINT"ERAKETEN ZERSTOERT, SOFERN DIESE AM" 

PRINT"ESPRENSKOPF GETRUFFEN WURDEN. " 

FRINT"EVIEL ERFOLG! M_ 190846 BY —- EIS SPRINTTABESEI" 
GETKEYAF: GOSLUBI FIT 

REM SRH IE 


REM ###+ NEUE ZEICHEN ### 

REM KRUSE RHEN N IN ER 

As=" |": SCNCLR:COLOR4 , 2,4: COLORB „2,4: RESTOREI7B 
FOKESA „47: Vv=55288 

FPOKEV+18 ,PEEK W+1E) ANDZSI 
FOKEY+17 ,PEEK {V+19) AND3DRA4B 
FORT=337T0849: READA: FÜKET „A:PR=PR+A: NEXT 


920 S5YS5832 
930 FORT=12809T013280: READA:= IFA>—1THENFOKET „A:NEXT 
94D REM KREIEREN 
958 REM ##* DATA’S FUER NEUE ZEICHEN ###* 
9GB REM BB ; 
978 DATA1L542,0,1987,0,2838,157,0,48,169,8,287,157,20,49 ‚202,208, 241,96 
7388 DATA1L27,255,224,254,127,7,255,254 - 410 DATA2SS, 255,255,755,255,259,231,129 
798 DATAZ52, 754 ‚227,227 ,227,227 254,252 1228 DATA7 ,63, 255,255, 255,255, 63,7 
1200 DATA248,112,112,112,112,112,112,248 1224 DATA 2,8,0,0,60,126,7559,255 
1810 DATAB,231,231,195,219,219,255,12&6 1248 DATA 224,252, 255, 255,255,295,252,224 
1923 DATAD,68, 124,231 ,255,255,231,231 1250 DATAF,97,5,197,51,15,3,255 
1ASG DATADB,274,724 ,224, 224 ,225,255,2535 1260 DATA16,14,32,35,76,112,192,255 
1048 DATAB,127,255,248,126,19,255,234 1270 DATA3,15,533,197,939317,17 
1850 DATAG,08,126,2553,231,255,128,68 1288 DATR192,240,76,67,22,32,16,16 
10:4 DATAB,255,255,224 ‚252 252,224 ,224 1799 DATA128,178,129,128,178,128,178,128 
19738 DATAB,255,255,255,153,24,24 ,60 1500 DATA255,255, 255,255, 255, 255,255,255 
1852 DATAB,R,62, 127 „223,255, 135,127 121@ DATAO,9,2,15,2,0,9,8 
1894 DATAD,D,G, 121, 230,254 „255,243 1328 DATA255,119,51,17,255,119,51,17 
1102 DATAAR, 56, 153,161, 161,153,66,6& 13208 DAaTAa-ı 
1118 DATAQ,3,15,31,.63,15,115,124 12408 REM Kann NEE 
1172 DATA127,127,63,31,15,7,8,0 15509 REM #** HAUPFTPROGSRAMM ###* 
1158 DATAQ,0,2,0,0 ‚254,254 ,255 140° REM PHBBBHSRHR 
1142 DATABR, 192,240, 248 ,252,249, 206,62 1370 Ü=sF+1:B=.3: 50707230 
1150 DATA126,126,124,124,120,112,2,0 tZ00 RETURN 
. 1168 DATA?55,2754,254,0,0,8,8,2 1390 EN=3 
1170 DATAB,D,228,191,171,228,0,20 13082 SCNCLR: COLORZ,1:C0LOR4,1 
1189 DATAR, 192,255, 127, 127 ,255,192,0 1412 GOSUB1SSB 
1170 DATASB,69,69,60,174,1268 ,255,255 1328 IFJOYt1)=7THEN1470 
1220 DATA255, 126,60, 62,62,60,62,&0 1354 IFIOY (1) :=178THENGDSLB170B 
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programme 


1448 
1458 
1468 
1478 
1480 
1490 
1508 
1518 
1522 
1538 
1540 
1550 
1560 
-.24 
1578 
1582 
1598 
1608 
1610 
1628 
1638 
1648 
1658 
1668 
1678 
1688 
1678 
1708 
1718 
1728 
1738 
1749 
ı758 
1768 
1770 
1758 
1792 
1808 
1818 
1828 
94,8 
1838 
1942 


1950. 


1958 
94,8 
870 
1898 
1970 
19722 
1710 
1722 
19758 
1748 
1950 
1742 
1778 
17809 
19708 


CHAR,T,S," ": T=TrB:S5=5+0: IFT>Z7THEN1418 

CHAR,F,@O," BR ETO"SCHAR,F,1," Ball, "ar=F+l: IFFS3SATHENFSFII 
SOUNDS „722,5: CHAR,T,S,"Ri RR" 

IFSH+2ETHENIG4B 

50101428 

IFJOY{1)=3THEN14282 

IFJOY (1) >=128THENGOSUB1F78 

CHAR,T,S," N, T=T+B:5=S5+C: IFT>37THENL410 

CHAR,F,O," MIT "SCHAR,F, 1," Ball ":F=PoisIPF@iTHENFSP+l 
SOUNDS, 709,5: CHAR,T 5, “ 

IFS>23THEN1840 

50T01478 

VOL4=:5=1NT (RND (1) #10) +12 T=9+2: C=INT ( {RND (1)#9)+7) 7/19: B=B+. 84: IFB>1. 9THEND=B 


REM KERNE 

REM #** STERNE #*#+ 

REM EUR 

SENELR:CHAR,F „B,"W- Kr" :CHAR, Fs 1, "Blei": SDUNDS , 700, 8 
FRINTERE 4 I 1" 
PRINT" | IE E 1 " 
PRINT" Hz 

PRINT" g" 

PRINT" IMs 1" 
PRINT“ Im" 

PRINT" 4 | ı IE: KR" 
PRINT" i r L B" 
PRINT" | Ei 0m IM m 1" 
FRINT" E i mu 1" 
PRINT" MW | | u: Ey 
PRINT" I 

PRINT mm I m LT% 
FRINT" 1" 

PRINT" $ g" 

FRINT" | E # | g" 
FRINT" 13" 

FRINT" Mm" 

REM SEHR 

REM *** ATDMPILZ #*# 

REM KREIEREN 

CHAR„O,24, "E00 BONUS" +5STRF (BOI +" FUNKTE"+STRE(EI+" "POKEL 


RETURN 

CHAR,T,23, "BE, "ECHAR,T,22, "RK" SCHAR,T-2,21,"#0 SRCHAR,„T71,28," 11" 
BO=BO-1: 

CHAR„D,Z24,." BRD BONUS"+5STRECBOI +" PUNKTE"+STRE IE) +" "POKEI 


RESTORE1F18 
VCH_B3 FORR=1T05: READEL {R)  NEXTR= FORR=1 1053; FÜRRR=OTOTF:EOLORZ,KL(RO „RR 
TOLORS „KL{RF JRRSNEXTRR,R: COLORB, 1: COLOR4,1 

FORR=F3BTO1210: SCHNDS, R, 1:NEXT3 FORR=1D10T0970STEP-1: SOUNDS ,„R,1:NEXAT 
DATAG,„9,3 

FORH=281023: FORI=1T05@: NEXTI:CHAR,T-2,H," "+ NEXT: R=B: RR=9 
IFBO=-BTHENZ17E 

GSOTDiA1G 

REM BER BRITEN 
REM *## LASER/RAKETENZERSTOERUNG ## 
REM ESRRSEHRIITHHETEHEEIEHE NH RR 


0=F+1:60702000 | . 
O=F+3 weiter $. 38 


Compute miP ah 





tips & tricks 


Sad 
2812 
A208 
PT EAT, 
22840 
2858 
Fa ilalı] 
a7 
























U=INT(T+.5) 
IFO=U+1THENF=i1: 5D0TOZ458 
IFD=UTHENF=B: SOTD2B40 
SGUNDI „953,19: FÜRG=ZTD2ZZ: 
IF3OY (1) 5=128THENZ2128 
RETURN 

SOLNDI „953,10: FORG=ZTOINT (5+. I: CHAR „0,8, "EW'SNEXT 
E=E+208: CHAR,8,24, "BE BONUS"+STRE (BON +" 


CHAR ,D,G, "ERW" NEXT: FORG=ZTOEZE: CHAR ,0,5," "NEXT 


PUNKTE" +STR# (CE): POKEIYA 


I" 
+ 
Ba FORG=ZTOINMT 15+.57-1: CHAR „0,5," ta NEXT=FORH=BSTOLSTEP-1: VOLHs: SDUND? „500,15 
2aFa COLOR1,2,H-1:2CHAR,„U-P-1,5," #& "zCHAR,U-P,„St1," ie "ZNEXT 

2108 ECHAR„U-F-1,5," "ZEHAR,U-P,5+1," "3 
119 GOTDI4IR ! 
12% CHARTS," ". T=T+tB-.1) 25>5+2: SOUNDS, 720,5: CHAR,T,S, "ai # " IFS>23STHEN19SB 
2138 IFJOYti)>=1ZOTHENZ1IB: ELSERBAB 
2148 REM EB 

>150 REM ##* GSFIELENDE ##* 

Dia REM Sera 
2179 SENELR:FRINT'R mE EEE Wi RE 5 mn 25 6 mE m" 

188 FRINT" m ER m Wi | zu ze mn" 

z1F78 FRINT” a RE n Ma 

ze PRINT" m | vo. nu Er 

z1R FRINT" BEE TE m SEE ME EEE a zur u BE 
2220 


PRINT "AS BPUNETEB IR" sE: "ee" 
ERDETE NEUES SPIEL: WIOYSTICE: 

FORI=1T03: SOUND1 „376 , 18: SOLINDI , 734,2 

IFJOYtI}= 1 29THENRUNI 390: EILSERZIE 





FEUERB" : 
ZB: NEXTS FÜRI=1T701BG: NEKTI 


MENIORY-FREE 


38 


Bedingt durch den nicht gerade überwäl- 
tigenden freien Speicherplatz hat der 
6-16/116 Programmierer des öfteren mit 
dem Problem, - paßt mein Programm 
noch in den Speicher {7} -, zu kämpfen. 
Die Definition von Variablen schluckt oft 
mehr Platz, ais man vorher vermutet hatte. 
Hier erweist sich nun MEMORY-FREE als 
die willkommene Hilfe. Jetzt hat man je- 
derzeit Überblick über den noch zur freien 


Verfügung stehenden Raum. MEMORY- 
FREE belegt selbst keinen Platz im Basic- 
Speicher, dieser bleibt so vollständig er- 
halten. 


Es empfiehit sich, nach dem ersten Start 
des Basic-Loaders das Programm abzu- 
speichern, so daß es in Zukunft direkt ge- 
laden werden kann. Zum Speichern ruft 
man den eingebauten Monitor auf und 
gibt ein: SBAME ‚08,0333,63EE <relun>. 
Dies File wird absolut mit: LORDNAME,3] 


<RETURN> geladen und kann mit 'SY8 
819° <RETURN> gestartet werden, 

Es ist notwendig, nach dem Start des Pro- 
gramms ein 'NEW' einzugeben, da wichüi- 
ge Zeiger im Computer zurückgesetzt 
werden müssen. Dann erfolgtdie korrekte 3 
Anzeige oben rechts: 012275 (Bytes ! 
free.). Zu beachten wäre noch, daß man | 
die Anzeige nicht überschreiben kann, da 1 
sie interruptgesteuert sofort wieder neu 
ausgegeben wird. 


SaoBa 


BEMO BHRRRRERAER 


| snau? DATALR,B6,D3,74,.D2,F8,A5,D&, 11BB 
saagi REM * * | &B0N5 DATASS,D6,85,.D06,95,05,553,05, 1334 
Ss@ad2 REM #* MEMORY-FREE Cläa/iis = | sauaa DATABS,DS,AS,D4,65,04,85,D4, 13Bi 
Saga REM * * ABeOS DATADB,CA,DR,ES,AS,D4,29,0F, 1258 
Saao4 REM %* BY GUERSEN OTTO * HERE& DATABS,D4,69,73,99,75,8D,14, 1006 
SeazS REM * 4440 NORDHORN * GERT DARTARS,A9,BE,5D,15,03,58,58, 524 
SsBags REM * SCHUBERTSTR.S * HaBRS BATESS,RA5,33,85,31,48,95,34, 837 
S@087 REM * TEL. 85921/15151 * 2039 DATAES. 32 AA, EB,AB,AA,DD,S6, 943 
Spau9 REM # OKTOBER 1985 * saBıE DATAUZ,26,84,03,40,96,03,AQ, 581 
Ss2a07 REM * * suaiıı DaTazt,A5,D4,38,4A,30,43A,AA, 778 
SARIE REM BSR HRS OHR | 6AB1? DATS2G,77,03,69,.29,8F,18,59, 475 
zeall : | EBELS DATATE, 79 ,28,20,097,44,997,08, 605 
BORUE DATASIL,66,953,85,02,84,02,49, 10756 | EOQLA DATAUS.CH 49,28 ,AC,@S,AC,CH, 787 
8061 DATARG,95,D4,85,05,35,D6,A2, 1720 | Sa0ıS DATAZBZ.AQ, 23,A5,D5,48,4N,4h, 796 
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werkstatt_ 


PRINT"BLESE DATAS.„." 


| DATR4A,4A,20,8B9,03,68,29,2F, sad27 
| 40017 DATAIS,67,30,99,B0,00,99,44, 377 50228 FOR T= 819 TO 1895 STEP B : F=8 
60018 DATAFIF,09,28,CH,69,20,CE,05, 698 68229 FOR I=@ 10 7? = REM EINZELNE ZEILE 
60817 DATAMC,ER,B3,AQ,25,A5,0D4,38, 9761 HORSE READ As ı A=DEC(AF) : F=PrA s POKE T+I 
SORZE DATAAA,AR,AA,4A,20,0B,05,68, 654 &A@Z1 NEXT I 
sumzı DATA2IF,GF,18,69,30,99,BR,8C, 378 SER32 READR= IFP< »RTHENPRINT"PRUEFSUMMEN FEHLER 
| 60022 DATARF,44,97,00,29,C0,62,4C, 778 &EO33 NEXT T 
683723 DATABE,CE,28,00,20,20,08,06, 220 AOU3& : 
| AuB2e : GROSS PRINT "BRMLLES D.K.”" 
62925 REM EINLESEN DES SSSEMBLER- CODES 688356 PRINT "BSTART MIT "SYS 819° <chR>" 
SuBzZa 3 682437 PRINT "DANN BITTE 'NEW' <CR>" 





BEEP-ROUTINE tür den Commodore 616/116 


Beep-Routine - ein schier unverzichtbares Maschinenutility gerade für die Besitzer 
des „Gummi“-Computers G-116! 





Wer täglich auf der Gummitastatur des C- 
116 arbeiten muß, wird bald feststellen, 
daß dies ohne visuelle Kontrolle kaum 
möglich ist. Da die Tasten keinen Druck- 


punkt haben und zusätzlich noch extrem ' 


klein sind, weiß man nie, ob man eine Ta- 
ste hart genug angeschlagen hat oder 
nicht - der prüfende Blick auf den Bid- 
schirm bleibt unverzichtbar. Dies istnatür- 
lich sehr mühsam, gerade wenn man Li- 
stings aus Zeitschriften abtippen will. Eine 
akustische Kontrolle der Tastatur wäre da 
natürlich ideal. Und hier setzt die Beep- 
Routine ein. Ist sie aktiviert, wird jeder Ta- 
stendruck, wenn er stark genug war, mit 
| einem kurzen Beep-Ton guittiert. Der Blick 
auf den Bildschirm braucht nicht mehr 
nach jedem Tastendruck zu erfolgen, man 
kommt entsprechend auf eine durchaus 
akzeptable Eingabegeschwindigkeit - 
und das auf einer „Gummi“-Tastatur. 
| Da die Routine vollständig in Maschinen- 
sprache geschrieben und in den System- 
interrupt eingebunden ist, merkt der An- 
wender von Existenz und Ablauf der Rou- 
tine fastnichts. Fast, insofern als die Routi- 
ne natürlich einige Bytes Speicherraum in 
I Ansspruch nimmt, die vom Basicspeicher 


486 


abgezapft werden müssen. Da es aber 
wirklich nur einige Bytes sind (knapp 50), 
fällt dies Kaum ins Gewicht. 


Zur Eingabe des Programms geht man wie folgt 
vor: 


- Geben Sie den abgedruckten Basicloa- 
der der Maschinenrautine ein, und starten 
Sie ihn. Datasettenanwender müssen vor 
dem Start in Zeile 10230 die Anweisung 
SYS43115 “BEEPCode“,3 durch die Anwei- 
sung $Y843115 “BEEP&ode“,1 ersetzen. Die 
REM-Zeilen können Sie beim Abtippen 
weglassen, sie tragen jedoch sehr zur 
Übersichtlichkeit‘des Programms bei. 


-Haben Sie beim Abtippen des Pro- 
gramms einen Fehler in den Datazeilen 
gemacht, meldet das Programm Ihnen 
dieses, ansonsten wird auf Diskette/Kas- 
sette ein Programmfile mit dem Namen 
BEEPCODE erzeugt, das die eigentliche 
Maschinenroutine beinhaltet. 

- Um nun die Routine zu aktivieren, schüt- 
zen Sie den benötigten Speicherraum 
durch folgende Anweisung, die Sie im Di- 
rektmodus eingeben: POKEST,202:- 


GSompute mib 


POKES2,63:POKEb5,202:POKEBG,63:C1A 
<return> Danach laden Sie die Maschi- 
nenroutine absolut (!) ein: 

Diskette: LOAB“BEERGODE*,8,1 

Kassette: LOAD“BEEPCEDE“ 1,1 

und korrigieren die Basicpointer, indem 
Sie NEW eingeben. 

- Jetzt können Sie die Routine mit 
51816336 aktivieren. Das Programm mel- 
det sich augenblicklich mit der “READY"- 
Meldung zurück, und Sie können ganz 
normal Programmieren mit dem Uhnter- 
schied der akustischen Tastaturkontrolle. 
Für Interessierte ist in das Basicpro- 
gramm ein kommentiertes Assemblerli- 
sting der Routine integriert, anhand des- 
Sen es kein Problem sein dürfte, die Routi- 
ne in einen anderen Speicherbereich zu 
verschieben. Für reine Diskettenanwen- 
der bietet sich der Kassettenpuffer an, den 
ich nicht gewählt habe, um die vielen Da- 
tasettenanwender nicht von der Benut- 
zung des Programms auszuschließen. Das 1 
Programm ist natürlich auch auf dem C-16 
lauffähig, büßt dort aber einen Teil seiner 
Unverzichtbarkeitein, da dieser Computer 
mit einer Schreibmaschinentastatur aus- 
gerüstet ist. 
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A 


werkstatt 


REM 
REM 
REM 
REM 
REM 
REM 
REM 


SOsooAaube 8 


12858 
1324B 
10252 


FOKES1,282: FOKESZ , 63: PÜKESS , 292; POEESS „63: CLR 


ENTER EHN RN TH HR FH EHE HH TIERE HEN IRRE FF NEIN IE ER HENR 


ar: * 


BEEP-RBUTINE 


BELEGT WIRD DER SPEICHERBEREICH VON 158336 BIS 15350, 


FUER DEN COMMODORE Ci6/1i6 


DER MIT 


FOKES1 „222: POKES2 ‚63: FOKESS , 202: POKES6 ,85:ELR GESCHUETZT WIRD 


WRITTEN 1985 BY 


REM MASCHINENROUTINE 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


ans Em Degen 


. 142750 


7a :REM SEI 
47,7F :REM LDA 
8D,10,FF :REM STA 
A9,BB :REM LDA 
SD,aF,FF :REM STA 
AZ,E7 :REM LDX 
AQ,Ssr :REM LDY 
BE,14,83 :REM STX 
&86,15,83 «REM STY 
58 :REM CLI 
68 :REM RTS 
AS5,C6 :REM LDA 
69,40 :REM CMP 
FO,28 :REM BEO 
A9,22 :REM LDA 
BD,11,FF :REM 5TA 
4C,BE,CE :REM JMP 
47,20 :REM LDA 
BD,11,FF ıREM STA 
4C,BE,CE :REM JMP 


WALDEMAR RAAZ 
RHEIN HTN RE IIINHE 


B#7F 
$Friß 
#+BB 
sFFOF 
#3E7 
#E3F 
>98514 
#8315 


C& 
#340 
$3FFS5 
#22 
$FFil 
+LEBE 
#08 
$FFii 
SCEUBE 


REM MA-ROUTINE EINLESEN 


FOR I = 15336 TOD 14388 


zn. 


a 


KT u I me T nr} 


INTERRUFT SPERREN 
FREQUENZ DES 
BEEP-TONES 
INITIALISIEREN 


INTERRUPT-VEKTOR AUF 
DIE EIGENE ROUTINE 
VERBIEGEN 


INTERRUPT FREIGEBEN 

ZURUECK INS BASIC 

TASTE GEDRUECKT 7? 

NEIN, DANN TON AUSSCHALTEN UND IN DIE 
NORMALE INTERRUFTSCHLEIFE VERZWEIGEN 
JA, DANN TON EINSCHALTEN 

UNB IN BIE NORMALE 

INTERRUPTSCHLEIFE VERZWEIGEN 

TON AUSSCHALTEN 

UND INTERRUFTHANDL.ING 


FORTSETZEN 
1265 : F=rF+rß 
18070 : POKE I,A 
1B820 : NEXT 
1a070 : 
10100 2 
ini IFP=5377THENIOI6B 


PFRINT"L IHNEN IST BEIM ABTIFPEN DER DATAZEILEN" 
EIN FEHLER UNTERLAÄUFEN. 


UEBERPFRURFEN" 


SIE BITTE DIE ENTSPRECHENDEN PROGSRAMM-" 


PRINT" ZEILEN (19922-120370) 


tNsEND 


PRINT"LE DIE DATAWERTE SIND RICHTIG EINGELESEN." 


MA-RIHTINE ABSPEICHERN 


DAS PROSRAMM WIRD JETZT ALS REINE MA-" 
SCHINENROLTINE ABGESPEICHERT." 
LEGEN SIE EINE DISKETTE 7 KASSETTE EIN" 


UND DRUECKEN SIE EINE TASTE 


READ Ar 

A = DEE(RAF 
18120 
181358 PRINT" 
1A142 PRINT" 
32150 
12140 
iBisl 3 
18152 > 
1@143 2 REM 
18164 = 
12172 PRINT" 
ıIgıga PRINT" 
18178 FRIMT" 
1e2en PRINT” 
ıin2iE 


18229 : 
192582 
12240 


102652 
18778 


PRINT" 


POKEZFF B:RAIT23YF,1 


5Y543115 "BEER.CODE",B . 
POKESS „288: POKES? „63: POKE2935 , 254: FOKEIU3S „65 
POKE2EI4 „39: SYS6 74 94 

PRINT"LN DAS PROGRAMM IST NUN ALS MÄSCHINEN-" 
RGUTINE ABSESPEICHERT 


REM BEI KASSETTENBETRIEBR: 


ungl 


Gompube enib 


sek. 
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‚kurs 


 6502-Assembler-Kurs 





LDX Load Index X with Memory {Lade Indexregister X durch Speicherstelle} 


“Auch dieser Befeh! wurde schon mehrmals verwendet. Er lädt den Inhalt des gewählten Speichertyps in das Indexregister 





HEX Adressierung 

RR Unmittelbar 

: A6 Null-Seite (direkt) 

‚Ab Absolut (direkt) 
B6 Nuli-Seite indiziert mit Y 
BE Absolut indiziert mit Y 


Bytes Syntax 
2 LDX # data 
2 LDX addr 
3 LDX addr 
2 LDX addry 
3 LDX addr,y 


76543210 
NV BDIZE 
X x 


a ||| nn EEE 


LDY Load Index Y width Memory__(Lade Index-Register Y durch Speicherstelle) 
Das Indexregister Y wird mit dem Inhalt der adressierten Speicherstelle geladen. 


HEX Adressierung 

AO Unmittelbar 

A4 Null-Seite- (direkt) 

AG Absolut (direkt) 

B4 Null-Seite indiziert durch X 
BC Absolut indiziert durch X 





Bytes Syntax 


LDY # data 
LDY addr 
LDY addr 
LDY addr,X 
LDY addr,X 


m om To 


76543210 
NV BDIZC 
x X 





Einer der hilfreichsten Befehle ist der NOP- 
Befehl. Er macht nämlich gar nichts und 


ist mit dem Basic-Befehl REM vergleich- 


bar. Oft muß ein älteres Maschinenpro- 
gramm verändert werden, wobei einige 


NOP No Operation {keine Ausführung] 


Lücken entstehen können. Die Heraus- 
nahme eines Sprungbefehls würde bei- 
spielsweise 3 Byte freilegen. Diese Lük- 
ken können nun mit drei NOP-Befehlen 
aufgefüllt werden. Geschieht dies nicht, 


kann der Microprozessor in einen undefi- 
nierbaren Zustand geraten und nur durch 
Aus- und Einschalten wieder in Gang ge- 
bracht werden. 





ORA „OR“ Memory _with Accumulator (Verknüpfe Speicherstelle und Akku durch „BBER“) 


Dieser Befehl ODERiert logisch den Inhalt eines Speicherplatzes mit dem Inhalt des Akkumulators. Wie das Verknüpfen zweier Bytes 
funktioniert, haben wir schon am Anfang unseres Kurses gelernt. Unser Microprozessor zeigt nun, wie man dies wirklich macht! 


HEX Ädressierung 

01 Indirekt, vor-indiziert mit X 
05 Nul!-Seite (direkt) 

09 Unmittelbar 

0D Absolut (direkt) 

11 indirekt, nach-indizier mit Y 
15 Nutl-Seite indiziert mit X 
19 Absolut indiziert mit Y 

1D Absolut indiziert mit X 


Der Befehl „ODER“ eignet sich hervorra- spiel findet der in der Sprite und Grafik- 
programmierung des 664 oft Verwen- 


gend zum Setzen einzelner Bits. Zum Bei- 
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Bytes Syntax 


ORA (addr, X) 
ORA addr 
DRA adata 
DORA addr 
ORA (addr), Y 
ORA addr, X 
ORA addı, Y 
ORA addr, X 


Gm nm mm 


Gompute mi 


76543210. 
NV BDIZGC 
X x 


dung, da hier viele Register in Bits aufge- 
teilt sind. Ein Bit schaltet beispielsweise 
zwischen Multicolor und Standardcolor 


um,und ein anderes wählt die Anzahl der | 


Bildschirm-Zeilen. 


a 


kurs_ 





- Das folgende Beispiel schaltet Sprite 0 ein, ohne auf andere Sprites Rücksicht zu nehmen: 2 


100 LDA 53269 ;Sprite Ein/Aus -Register | 120 STA 53269 ;Sprite einschalten 
110 ORA #%00000001 ;Maske für Sprite 0 130 RTS 


‚Bedenken Sie, daß auch Farbe und Position eines Sprites gesetzt werden muß, um eines sichtbar zu machen. 





Der Stack des 6502 (6510) 


Bevor wir mit der Beschreibung der Stack-Befehle fortfahren, möchten wir aufzeigen, wie und wozu der Stack verwendet wird. Um 

erste Klarheiten zu schaffen, verwenden wir ab sofort statt dem Wort Stack die Bezeichnung „Stapel“. 

Der „Stapel“ istein für vorübergehende Informationen geeigneter Platz. Er funktioniert genau wie ein Aktenstapel: Sie können einen 

Gegenstand auf dem „Stapel“ ablegen (puch), oder einen Gegenstand zurücknehmen (pull}. Bei der Rücknahme wird immer der zu- 

letzt angelegte zurückgenommen: - Formell bezeichnet man diesen Vorgang mit „zuletzt hinein, zuerst hinaus“ (Last-In, First-Dut= 

LIFO). 

Eine wichtige Regel für den Umgang mit dem „Stapel“ sollte man sich immer merken: „Verlassen Sie ihn so sauber, wie Sie ihn gefun- | 

den haben“. Mit anderen Worten, wenn Sie drei Dinge auf den Stapel ablegen, vergewissern Sie sich, daß Sie diese drei Dinge wäh- 

rend des Programmablaufs auch wieder zurücknehmen, Verzweigen Sie niemals vorher und betrachten Sie den „Stapel“ nicht als | 
- Abfallbehälter. 

Im Gegensatz zu vielen anderen Prozessoren ist der Speicherbereich des „Stapel’s“ beim 6502 festgelegt, er befindet sich im Spei- 

cher auf der Seite 1. Der Stapelzeiger (SP) wird zusammen mit den Registern angezeigt. Um die Informationen des „otapel’s“zube- I- 

trachten, muß man den Wert $100 zum Siapelzeiger addieren, um die nächst verfügbare Stapelposition zu erhalten. 


Ein Beispiel: Wenn der SP einen Wert von $F1 besitzt, wird der nächste Gegenstand, der auf dem Stapel abgelegt werden soll, indie | 
Adresse $1F1 gelangen. Nachdem wir ein Byte abgelegt haben, wird automatisch der Stapelzeiger SP um eins erniedrigt. Das bedeu- 

tet, beim Ablegen von Daten wird der Stapelzeiger erniedrigt und beim Abholen von Daten wieder erhöht. Je niedriger der Inhalt des 

Stapelzeigers, um so stärker ist der Stapel belegt. Ab dem Wert 40 ist äußerste Vorsicht geboten. 
Neben speziellen Stapelbefehlen, die wir weiter unten ausführlich erklären, nutzen auch einige andere Befehle die Fähigkeit des ,Sta- | 
pel’s“. Da wären die schon beschriebenen Befehle RTI und RTS, welche den „Stapel“ zum Abspeichern der Rücksprungadresse ver- | 
wenden. Sie werden jetzt sicher verstehen, daß mit dern „Stapel“ ordentlich umgegangen werden sollte. Die hier abgedruckte Skizze | 
demonstriert noch einmal anschaulich die Funktion des „Stapel’s“ nach der Ausführung eines JSR Befehles: | 


. Literatur: 


| 6502 Microcomputer-Programmierung, 
Peter Heuer, Hofacker Verlag 
6502 Programmierung in Assembler, 
| Lance A. Leventhal 
10) 2 |FEDE zu 64 Intern, Angershausen, 


RTS 


Becker, Englisch, Gerits, 
3 Dala-Becker Buch 


6502/65002, Christian Persson, 
Heinz Heise Verlag | 
Reverenz Map, F. Brali 
Butterlield’s Lehrbuch, 

J. Butierfield, Hanser-Verlag 
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' Die Schaltzentrale der Luftabwehr steht im Mittelpunkt dieses Programmes, bei dem, es auf, 
‚Gesch indigkeit und logisches Denken ankomm : 


Programme 





1 Das Spiel ist nur für harte Nerven be- 
“ stimmt und erfordert von Ihnen logische 
: Kombinationen bei der Ausführung der 
einzelnen Schritte. Sie müssen 4 feindli- 
che Raumschiffe innerhalb eines Koordi- 
natenkreuzes orten und vernichten. Fragt 
. man eine der Koordinaten ab, zeigt der 
_Gomputer an dieser Stelle eine Zahl an - 
den Funkspruch. Diese Zahl-des Funk- 


e: für den $ Schneider CPC 464 \ 


spruchs sagt Ihnen, wie viele Raumschiffe 
Sie von dieser Position aus sehen können, 
Hierbei gelten natürlich alle Himmelsrich- 
tungen (N, $, 0, W NW usw.) Durch die 
richtige Kombination der verschiedenen 
Funksprüche kann man auf die Position 
der feindlichen Raumschiffe schließen. 
Die Werte der Funksprüche können von 0 
bis 4 gehen. Zeigt der Computer eine Dan, 


füllt er alle Koordinaten, die von diesem 
Punkt ausgehen,mit Kreuzen, da auf die- 
sen Punkten kein Raumschiff stehen kann. 
Dadurch wird die Suche nach den übrigen 
Raumschiffen wesentlich erleichtert. Istes 
Ihnen geglückt, alle 4 Raumschiffe zu or- 
ten, ertönt eine Melodie, und die Anzahl 
der Gesamtzüge wird angezeigt und gege- 
benenfalls in der High-Score-Liste einge- 
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REM 
REM 
REM 
REM 
REM 


RAHHHHHHHHTTR 
**% SPACE RESCUE #%#* 
XI ic) 1985 BY 3% 
%%* RAINER MUELLER %#+ 
* GESCHRIEBEN AUF * 
REM #%* GRUENMONITOR %%* 
REM HEHRRRHHRHHHAHHHNN 
MODE 1 
ENV 1,6, -10,20 

'SPEED INK 10,10 

INK 0,0:INK 1,18: INK 
PAPER O:BORDER O:CLs 
Fi=3:F2=1:F3=1:2A=2:RM=0 
PAPER O:BORDER O:CLS 
Tig="R AM-SO F T": 
NM=18: MM=8 
CH=LEN{Ti$) :PIX=CH#8 
x=1600-C4%421 73 

PEN 2:LOCATE 1,1:PRINT TiISIPEN i 
TX=X:Y=3001Y1=378 

FOR F=1 TO ? 

xi=0 
FOR 6=1 
IF Fi=t 


2,0: INK 3,8 


T2$#="presents” 


TG PIX 

THEN Fi=s2:F2=3:1F3=11G070 770 

IF Fi=2 THEN Fi=s2:F2=2:F3=1:60T0 270 

IF Fi=s3 THEN Fielif2=2:F3=3 

IF TEST(X3,YL)=2Z THEN PLOT x,Y,F3:PL 

OT X,Y-2,F3IPLOT X,Yrd4,F3 

i 250 IF TESTIR1,Yil=2 THEN PLOT X+2,Y,F28 
PLOT X#+2,Y-2Z,FZIPLÜOT xX+2,Y-3,FZ 

290 IF TESTIXL,Yi}=Z THEN PLOT X#+4,Y, Fl: 

PLOT KX#+4,Y-2,FL:IFLOT K+4,Y-4, Fi 


300 Ksk+tös:Kleklr2 

s10 NEXT 6 

320 YeYy-sıyleyi-2 

330 %=TX-A 

330 A=shrd 

350 NEXT F 

360 LOCATE 1,1:PRINT SPACEE ICH) 
370 CH=LENITZS) :FIXRSCHES 

3850 %=1837-CH#32}/2 


tragen. 


370 PEN Z:ILOCATE 1,1:PRINT T2#& 

400 TX=X1Y=175:Y1=378 

410 FOR F=1 TO 8 

420 X1=0 

430 FOR G=1 TO PIX 

440 IF TEST(X1,Y1)=2 THEN PLOT X,Y,2:PLO| 
TxX,Y-2,1 

450 IF TEST(Xi,Yl)=2 THEN PLOT X+2,Y,2:P 
LOT X+2,Y-2,1 

480 X=X+4:ıX1l=Xl+2 

470 NEXT 6 

480 Y=Y-41Y1=Yi-2:X=T% 

450 NEXT F 

500 LGCATE 1,1:PRINT SPACES ICH) 

510 INK 2,26, i10:INK 3,10,24:INK 1,17 


520 FOR I = 1 TO FOGOENEXT I 
530 PEN 1 

540 GOSUB 3200 

2350 PEN i 

S40 SPEED INK 109,100 

s70 GLS 


580 LOCATE 1,13:FRINT"Brauchst Du Instru | 
ktinnen J/N 7" 


570 AS=UPPERS{INKEYS):IF Ag="" THEN 570 


500 IF As="J" THEN MODE 1:605UR 2900:60T | 
u 530 

810 IF Ag="N’" THEN &50 

620 GOTD 590 

630 REM ###k% HAUPTFROGRAMM RERRX 


640 
Ö 
850 MODE 1 

850 DI Kii0,&) 

870 R3=59:01=1:02=3: Ze4: TREFFER =0 

430 IF RM=33 THEN 710 

670 FOR I=l TO 3: HIEI)=10555: HIST) ="RAM 
-SOFT"SHISII)=SiS:NEXT | 
700 FOR I=4 TO &:AItI}=10500:HI&(I)="RAM| 
-SOFT"SHIS{T)=20:NEXT 

>10 ETRLS=CHRS 10) +CHRE IS) +CHRE (8) 

720 E&=CHRE& (205) HCHRE(ZO4 I HE TRLS+CHRSE (20 


INK 0,0:INK 1,25:INK 2,15: INK 3,20,1| 


Compute mib a 


programme 


4) +CHR& 1205) 


739 
740 
750 
Fast 


740 


FrO 
‚50 
7>0 
800 
510 
320 
830 
340 
850 
350 
870 
3830 
570 
30 
?10 
720 
730 
730 
950 
750 
F70 
750 
70 


1000 
1010 
10920 
1030 
1040 
1050 
10850 
1070 
1050 


mu 


10P0 


o 


1100 
1119 
1120 
1130 


zu 


1i40 
1150 
1180 
1170 
1150 
1150 


KHK 


1200. 
1210 
1220 
1230 
1240 
1250 
12680 
1270 
1280 
1270 


FOR I=ı TO 4 

A=SINT{IRNIKFI HI 

B=INTIRNDRFIHL 

IF K{A,B)}=0 THEN KIA,B)=R5 ELSE G0OTO 


NEXT I 
LOCATE 1,20:PEN 1 
MODE 1 
PEN 2 
ORISIN 0,0 
Bee 2 3 aa 7 8 9 
LOCATE 8,i:PRINT 9% 
FOR I=23 TO 5 STEP -3 
LOCATE &,@2:PRINT CHRS (84+@1) 
FOR K=132 TO 434 STEF 48 
PLOT K,IX14-8,2:!DRAWR 21,0 
PLOT K,I#16-10:DRAUR 21,0 
NEXT K 
LOCATE 34,@2:PRINT CHRS{84+01) 
Bi=@1+1:02=02+3 
FOR L=®# TO 30 STEP 3 
LOCATE L,Z:PRINT"L"FESI NO" 
NEXT L 
Z=2+3:1F 
NEXT I 
FOR K=23 TG & STEF -3 
FOR I=128 TO 528 STEP 48 
PLOT 1-8, (KX1&4-21):DRAWR 0,-23 
PLOT 1-10, (KX18&-Z1):DRAWR 0,-23 
NEXT I:NEXT K 
LOCATE 8,23:1PRINT 0% 
REM X%%%* TASTATURABFRAGE KR 
ZUG=ZUG+1 
PEN 1 
LOCATE 33, 24: PRINT"ZUG NR.:” 
LOCATE 33,25: PRINT USING"## 
LOCATE 1,24:1PRINT"KOORDINATE 


£=22 THEN Z=1? 


"zus 
{A-6) 


A&S=UPPEREIINKEYSI:IF Ab="" THEN 107 


E2=ASC 1A} -&4 

LOCATE 20,24: FRINT 38 

IF E2Zii OR EZ}? THEN 1070 

LGCATE 1,25: PRINT"KOORDINATE (1-7 


AS=INKEYS:IF Ap="t 
Ei=VALIAS) 
LOCATE 20,25:FRINT A$ 
IF Ei@ii OR EL? THEN 
P=0:X=El:\V=ER 
IF KIEL,ÄEZI=RS THEN GOTO 2370: REM * 
RAUMSCHIFF GEFUNDEN K8#X* 
IF EZ2>i THEN GBSUB 1350 
IF Ei>1 THEN GGSUR 14300 
IF E27? THEN GOSUB 1450 
IF Ei<X? THEN GOSUB 1500 
IF E2>t AND Eil>i1 THEN GOSUB 
IF E2X? AND El>1 THEN GOSUB 
IF EzZi? AND EI1(? THEN GOSUB 16870 
IF E2>1 AND Els? THEN GUSUR 1729 
IF FP=0 THEN KIEL,E2I=T1:GD3UB 1770 
TON$=CHRS {22}: TOF$S=CHRS (ZZ) HCHRS$ (0) 


THEN 1130 


1139 


4550 
1510 


GSempube mib 








:P&=RICHTEISTR#$ IF), 13 


1300 


LOCATE 1,1:FRINT FONSI!LCCATE EI%3+5 


‚EZX3: PRINT PS:LOCATE 1,1:PRINT TGF$ 


1310 
1320 
1330 
1330 
1350 
1380 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1470 
1500 
1510 
1520 
1530 
1540 
1550 
xx 

1580 
1570 
1580 
1590 
1600 
1810 
ER 
1520 
1630 
1840 
1850 
1860 
1870 


KIEL,EZI=L 

LOCATE 1,294: PRINT STRINGSIS2," 
LOCATE 1,25:FRINT STRINGE(32," "95 
GoTO 1030 

REM ##%*# FRÜUEFUNGS MACH OBEN KHK 
FOR I=EZ TO i STEP -i 

IF KiEl,I}=RS THEN P=P+1:RETURN. 
NEXT I 


RETURN 
REM #%#% PRUEFUNG NACH LINKS #88 


FOR I=sEi TO 1 STEP -1 

IF KIT,ÄEZI=RS THEN P=P+1:RETURN 
NEXT I 

RETURN . 

REM ##3%% PRUEFUNG NACH UNTEN X#%% 
FÜR IsE2 TO 7 

IF K{E1,11=R5 THEN P=P+1:RETURN 
NEXT I 

RETURN: 

REM *3%* PRUEFUNG NACH RECHTS KR 
FOR I=sEl TO 9 

IF KIT,E2)=R5 THEN P=P+1:RETURN 
NEXT I 

RETURN : 
REM ##3% PRUEFUNG NACH LINKS-OBEN * 


XsEil:\=E2 

IF %=1 GR \Y=1 THEN RETURN 
K=k-1:Y=Y-1 

IF KIA,Y)I=R5S THEN P=P+t1:RETURN 
GGTO 1570 

REM %#%#% PRUEFUNG NACH LINKS-UNTEN 


A=E1l:\Y=E2 

IF x=1 OR Y=7? THEN RETURN 
Kek-i:Yevti 

IF KIX,Y)zRkS THEN F=P+1, RETURN 
GOTO 1830 


REM #%R# FRUEFUNG NACH RECHTS-UNTEN 


RAR 


1550 
15970 


1700. 


1710 
1720 
1730 
HH 
17430 
1750 
1780 
A?7r70 
1780 
1770 


K=El:Y=E2 

IF %=9 OR Y=? THEN RETURN 
Kaktliyeyti 

IF KIA,W)=RS THEN PePf+i: RETURN 
GoOTO 18%0 

REM ##3% PRUEFUNG NACH RECHTS-DBEN 


x=Ei:Y=E2 

IF x=9 OR Y=1 THEN RETURN 
KeK+livay-i 

IF KiX,Y)=RS THEN P=P+1:RETURN 
GUTO 1750 

REM #%%%* P=0,KOORDINATEN IN ALLE RI 


EHTUNG AUSFUELLEN #3%# 


1800 
1810 
1820 
1830 
1840 
1850 


E2>1 
Ei>i 
Er? 
Ei<? 
E2>1 
Er<? 


IF 
IF 
IF 
IF 
IF 
IF 


THEN GSOSUB 1890 
THEM GOSUB 2010 
THEN SGSUB 2130 
THEN GSOSUB 2250 
AND Eil?ril THEN GOSUB 1950 
AND Ei>i THEN GOSUR 2070 
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1860 
1870 


IF E2S? AND EiI<X#F THEN SGSUB 2iF0 
IF E2Z>1 AND Ei{®? THEN GUSUB 2310 
1280 SOUND 1,4000, 100, 13: RETURM 

1870 REM FR AUSFÜELLEN NACH OBEN KH 
1750 K=ELIY=EZ 

1710 FÜR Y=E2 TO i STEP -1 

1920 IF Ki, Y)=0 THREN GSGSUB 7710 

1930 NEXT Y 

1740 RETURN 

1950 REM ##%% AUSFUELLEN NACH LINKS-OEEN 
EX 
170 
1970 
ır730 
1770 
2000 
z010 
2029 
2030 
2040 
2059 


A=E1:Y=-E2 
iF X=1 OR 
Hek-li:Yey-i 

IF KI{X,Y)=0 THEN GOSUB 7710 

GETG 1770 

REM *#4% ALUSFUELLEN NACH LINKE #888 
N=El:Y=E2 

FoR x=Ei1 TI i STER -i 

IF KIiX,Y?=0 THEN GESUB Z7LO 

NEXT = 

2060 RETURN 

2070 REM 3#%*%+ AUSFUELLEN NACH 
NM #EE% 

2080 %=El:!Y=-E2 

2050 IF X=1 OR Y=7? THEN RETURN 
z100 X=k-i:Y=Yy+tl 

z1i16 IF KiR,Y}=0 THEN GOSUB 2710 

2126 G0T0 20990 

2130 REM #3%% AUSFUELLEN NACH UNTEN 3#3#* 
21409 k=El:!Y=E2 

2150 FOR Y=E2 TO 7? 

zisaö IF KIX,Y)=0 THEN GOSUB 2716 

2170 NEXT Y 

2150 RETURN . 

2170 REM *%%%* AUSFUELLEN NACH RECHTS-UNT 
EN 3+3%+ 

22006 X=Eil:!Y=E?2 

2210 IF %=9 GR Y=7 THEN RETURN 

ZZ20 Kekri:yeYrl 

2230 IF KiR,Y)=0 THEN GOSUB 2710 

#240 GGTO 2210 

2250 REM 3% AUSFUELLEN NACH RECHTS 
%+ 
2250 
2270 
2230 
2270 


Y=1 THEN RETURN 


LINKS-UNTE 


A=E1l:Y=EZ 

FOR X=E1 T0 9 

IF KIi%,Y)=0 THEN GOSUR 2710 

NEXT % 

2300 RETURN 

2310 REM X%%%* AUSFUELLEN NACH RECHTS-BGBE 
Mark 

2320 x=El:Y=E2 

2330 IF %=? OR Y=1i THEN RETURN 

2340 Kektl:yeYy-i1 

2350 IF K(xX,Y)=0 THEN GOSUB 2710 

2350 GOTD 2330 

2370.REM K#RR# RAUMSCHIFF GEFUNDEN KHXRR8 


FOR F=1 TO 3 
FOR I=300 TO 50 STEP 
SOUND 1,1,357 

NEXT I 

NEXT P 


2380 
2370 
2400 
z410 
2420 


-10 
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programme 


2430 GGESUB 2760:REM *#t% RAUMSCHIFFSYNBO 
L E8%% 

2440 TREFFER=TREFFER#+1 

2450 IF TREFFER=4 THEN 2470:REM ##3%# ALL 
E 4 RAUMSCHIFF GEFUNDEN FR## 

2460 GOTO 1320 

2470 REM X%%% SIEG #8 

2480 FÜR ZAHL=1 TO 2 

2490 RESTORE 

2500 READ TÜhl, LAENGE 

2510 SOUND 1,TON,LAENGE,?,i,1 

2520 SOUND 2, TON+1,LAENGE+O.S,7 

2530 SOUND 1,0,1,0 

2540 IF TON<>L AND LAENGE<>I1 THEN 2500 
2559 NEXT ZAHL 

2560 DATA 358,50,358, 
5,50, 319,50,319,25 
2570 DATA 358,25,37®, 25,476, 25,4378,50,28 
4,50,284,25,319, 25 

2580 DATA 358, 25, 358,50, 262,25, 263,25,28 
4,25,219,28,.284,28 
2570 DATA 262,50,239, 
4,25,319,25,358,50 
2600 DATA 262,25, 284,25,319,25,358,20,37 
9,100,1,1,t1 

2610 LOCATE 1,23:PRINT STRINGS(39," 13 
2620 LOCATE 1,25:FRINT STRINGS(39," "93 
2630 LUCATE 1,24:PRINT"DU HAST ES IN"ZUG 
"ZUEGEN GESCHAFFT 1" 

2640 FÜR C=1 TO 5000:NEXT C 

26550 GOSUB 3050:REM HIGHSCORE 


25,379,25,426,50,42 


50,239, 25,263,25,28 


2550 LOCATE 1,25:PRIMT"’NOCH EIN SPIEL ]J 
m?" 

2570 Ag=UPPERS$LINKEYSE)SIF A$="" THEN 267 
pi : 

2850 IF A&<C>"]" AND As<>"N" THEN 2870 
2670 IF A&="J" THEN RM=33:ERASE K:IGOTO & 


30 
2700 END:REM *%%%* ENDE X3%%* 

2710 SPALTE=SKX3+S:TZEILE=STHB:IREN X%%% BER 
ECHUNG DER SPALTEN/ZEILEN IH 

2720 KIX,VI=I 

2730 PEN Z/LOCATE SPALTE,ZEILE 

2740 PRINT CHRSt203)3:PEN i 

2750 RETURN 

27&0 REM X#%% RAUMSCHIFFKOORDINATEN BERE 
CHNEN UND RAUMSCHIFF ANZEIGEN K#%% 

2770 SPALTE=EI*3+5:ZEILE=E?X3 

27890 ORIGIN SPALTEXLS-I0,416-ZEILEXL16-8 
2750 FOR Q=i Tü 350 STEP 3 

2800 DRAW 13%5IN{0), 13%C00510),3 

2810 MOVE 0,0 

2820 NEXT O0 

2830 ORIGIN SFALTE*XL5-10,415-ZEILEX16-8 
2840 FOR 0=1 TO 360 STEP 5 " 

7850 DRAW 13%5INI0),13XC08 10) 

22850 MOVE 0,0 

2870 NEXT 0 

28820 ORIGCIN 0,0 

2890 RETURN 

23700 CL5 

2910 FRINT STRINGS140, 1594) 5 STRINGS{40,"% 


"5 


Compute mik 


4 


programme 


2#20 FRINT:FRINT’T’ IN 5 TR UK 77T 
Ida N E N"IPRINT 

2930 FRINT STRINGS$ {40,'"*")55TRINGS (40,15 

435 

29740 WINDOW 1,40,7,25 

2750 FRINT"Du Bist der Kommandant eines 

Raumschiffsund musst versuchen 4 der 

feindlichenRaumschiffe zu Oorten.Sie hal 

ten sich ineinem  Koosrdinatensystenm CA 

1-G9 ) ver-steckt auf.Wenn Du eine Po 

sition ab-fragst, zeigt Dir der Compu 

ter an,wie-"j3 

2750 PRINT"viele feindliche Raumschiffe 

Du von die-ser Fosition aus sehen kannst 

. Es geltenalle Richtungen {HN,NG,0,50,5, 

SW,W,NW).* 

29?0 LOCATE 38, 17:FRINT">>":CALL LBBLS:C 

LS 

2980 PRINT"'Bsp.: Du fragst Position B3 3 


bider Computer testet nun all 
e Fos. nach oben, linksoben, 1 
inks, rechts, rechtsunten,.... 
ea Trifft er dabei auf eim 
feindl, Raumschiff faengt er an 
zu” 
2990 PRINT® zaehlen.Hat er alle Ric 
tungen geprueft zeigt er Dir d 
ie Anzahl der Raumschiffe,die von 
dieser POS. aus gesehen werden 
koennen an.Steht ein Raumschiff 
im Schatten lauf der gleic 
hen Linie" 
3000 PRINT" wie ein anderes) kann m 
an es von der augenblicklichen Fo 
s. nicht sehen.Das heisst aber rn 


icht,dass man es von anderen Pos. 
auch richt sehen kann." 

3010 LOCATE 38,37: PRINT"PRTSCALL &BB1S: c 

LS 


3020 PRINT" Zeigt der C. eine 3 an 
heisst das, dass man von dieser Pos 
. aus 3 feindliche Raumschitffe 


Durch Kombinieren der v 
Zahlen auf den versch. 
man auf ein feindliches 


sehen kann, 
erschieden 
Pos. kann 
Raumschiff"; 


35030 PRINT" schliessen. Gewonnen hat 
man, wenn man alle #4 Raumschiffe 
gefunden hat.” 


3040 LOCATE 38, 17:PRINT">>"ICALL &BBIS:C 

LS:RETURN 

3050 REM HIGHSCORE 

3080 5SC=INT (1/ZUGX10000) +10000 

3070 CLS:TLOCATE 1,13 

3080 FOR I=i TO S:IF HItI)>=35C THEN NEX 

T:GOTO 3110 

3070 PRINT"zses20nan."3LOCATE 1,13: INPUT 
"rn NAS 

3100 FOR @=I+r1l TO S:HIIOI=HI(R+HLISNEXTIH 

IIIJ=SSCHHISEI)=NA$I HIST) =SZUG 

3110 CLS:PRINT" HIGHSCORE- 

L IS T E":PRINT:PRINT 
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3120 PRINT"PLATZ SCORE 
ZUEGE" 

3130 PRINT"----------+-- === -40- 22-0000 
3140 FOR I=1 105 

3150 PRINT TAB(Z)5 15 TAB{7)5HILTI STABIL?) 
;HIS(II 5; TAB(30) HIST) 

3160 NEXT 1 

3170 RETURN 

3180 END 

3190 REM TITELBILD 

3200 MODE 1 

3210 DIM @1508) 

3220 RANDOMIZE TIME 

3230 ORIGIN -600, -150 

3240 INK 0,0:INK 1,241INK 2,18:1NK 3,8:B 
ORDER 0 
3250 PRINT CHR$(22) +CHR& (1) 
3260 FOR N=1 TO 500 

3270 H=RND# (637) 1 V=RND# (399) 7 BEINTERND (A 
IxZ) +1 

3280 IF B=1 THEN PLOT 800+H, 150+V:TAGIPR 
INT CHR$ (144) |: TAGOFF 

3290 FLOT 0,0,1 

8300 IF B=Z THEN PLOT &00+H, 150+V, 3:DRAW 
R 0,1:DRAUR 2,1 

3310 NEXT N 

3320 PRINT CHRS (22) +CHR#t0) 

3330 NR=1 

3340 SCA=4 

3350 RESTORE 2550 

3360 REM *#%%%* TITELGRAFIK ZEICHEN #3%*% 
* 

3370 FÜR I=i TO SO4:READ B{I}:NEXT 

3380 S=Ri{NR) 

3370 IF SCA=2 THEN Q(8)=3 ELSE Rl8)=2 
3400 IF S<245 THEN 60T0 3490 

3410 IF $=245 THEN TASOFF:PRINT CHRS$ (23) 
;CHRS$ (0) 1 TAG:NR=NR+1:60T0 3380 

3420 IF 8=254 THEN LET M=2iNR=NR+1:G0TO 
3380 

3430 IF $=253 THEN TAGOFF:PRINT CHRS$ (23) 
SCHRS(L) TAG 

3440 IF 5=253 THEN Y=OtNR+1):MOVER 0,500 
:PLOTR 0,0, YıMOVER 0,-500 

3450 IF 5=252 THEN TAGDFF:GOTO 3540 

2460 IF 5=250 THEN MOVE T(RINR+LIIXSCA), 
ULB ENR+Z2) I#SCA) INR=NR+3:60TO 3380 

3470 IF S=248 THEN MOVER ((RINR+L)-120)% 
SCA),LIRENR+ZI-120)*SCA) :NR=NR+3:60T0 33 
20 

3480 NR=NR+2:60T0 3380 

3490 REM 

3500 IF M=2 THEN DRAUR tILNRI-120)%5CA) 
s„tIRINR+1I-L20)KSCA) ,Y 

3510 IF SCA=4 AND M=2 THEN MOVER 0,-i:DR 
AUR -CIBENR) -L20IRSCAI-1,-TIBINR+LI-120) 
XSCA)-L,Y:MOVER KIRINRI-IZOIFSCAY HL, ICE 
NR+LI-1ZO)RSCA) +2 

3520 IF M=3 THEN MOVER (@INR)-120)8SCA) 
„ HIRINR+1) -120)X5CA) 

3530 NR=NR+2:60T0 3380 

3540 IF R=0 THEN SCA=2:NR=1:R=1:0RIGIN 9 
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5,-100:160T0 3380 ELSE 3720 
248, 
120, 
138, 
119, 
120, 
087, 
119, 
117, 
159, 
161, 
117, 
119, 
i20, 
120, 
120, 
120, 
118, 
119, 
118, 
118, 
163, 
159, 
158, 
123, 
120, 
120, 
120, 
127, 
081, 
087, 
087, 
070, 
248, 
120, 
120, 
126, 
121, 
253, 


3550 
253, 
105, 
119, 
3560 
119, 
117, 
248, 
3570 
119, 
119, 
119, 
3580 
169, 
169, 
170, 
3590 
120, 
120, 
120, 
3600 
119, 
119, 
119, 
3610 
122, 
074, 
076, 
3620 
115, 
119, 
119, 
3630 
106, 
109, 
119, 
3640 
124, 


DATA 
002, 
120, 
099, 
DATA 
150, 
119, 
118, 
DATA 
079, 
079, 
119, 
DATA 
120, 
120, 
120, 
DATA 
119, 
117, 
120, 
DATA 
080, 
082, 
073, 
DATA 
120, 
120, 
120, 
DATA 
154, 
153, 
153, 
DATA 
120, 
120, 
114, 
DATA 
122, 


250, 
245, 
248, 
120, 
120, 
120, 
155, 
119, 
120, 
120, 
120, 
077, 
119, 
119, 
119, 
119, 
119, 
119, 
119, 
119, 
120, 
i20, 
120, 
120, 
120, 
ii, 
120, 
119, 
120, 
120, 
120, 
120, 
119, 
121, 
119, 
114, 
120, 
120, 


CHECK Vi: PRUEFSUNMEN: 


ZEILENNR.! SUMMEN 
j0- 20: 24315 
30- 40: 249720 
50- 80: 27475 
7O- 60: 109915 
70- 100: 5178 

110- 120: 13594 
130- 140: 56045 
150- 180: 63533 
170- 190: SP261 
ir za0: 43453 
210- 220: #572 
230- 2403 s5isl 
250- 260: 99158 
270- 280: 621797 
ze0- 3003, 84713 
Ssta- 320: 29658 
330- 340: 17245 
350- 350: i1224 
370- 380; 58810 
370- 400: 41213 
a10- 420: 9584 
430- 440: 31834 
450- 450: 71388 
470- 490: 55034 
370- 500: 11224 
510- 320: 20454 
530- 540: 1053 
550- 550: 3056 
370- 380: 276% 
Sy0- 6003 50357 
Mio- 620: 9929 
630- 890: 34435 
450- dal: 3366 
670- #80: 19971 
590- 700: 55457 
F10r 2720: 52430 
»30- 740: 178027 
?50- 760: 39776 
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250, 
254, 
117, 
248, 
119, 
119, 
120, 
157, 
117, 
119, 
248, 
120, 
119, 
119, 
119, 
119, 
171, 
170, 
170, 
167, 
120, 
120, 
119, 
248, 
119, 
118, 
119, 
119, 
119, 
118, 
118, 
118, 
147, 
119, 
119, 
121, 
i16, 
117, 


i20, 
132, 
119, 
117, 
093, 
117, 
119, 
120, 
119, 
i19, 
118, 
114, 
072, 
071, 
070, 
070, 
120, 
120, 
120, 
120, 
119, 
119, 
119, 
125, 
118, 
187, 
165, 
248, 
119, 
119, 
119, 
117, 
i20, 
133, 
130, 
120, 
116, 
118, 


770- 

790- 

810- 

830- 

359- 

870- 

870- 

F19- 

F20- 

550- 

F79- 

990- 
1010- 
3030- 
1050- 
1070- 
L070- 
1210- 
1130- 
1150- 
1:70- 
31170- 
1210- 
1230- 
1250- 
1270- 
1290- 
43107 
1330- 
1350- 
1370- 
1370- 
1410- 
1430* 
1450- 
1470- 
1490- 
1510- 
1530- 
1550- 
1570- 


780: 
Boot 
820: 
840: 
850: 
850: 
700: 
920: 
Paar 
Fö0r 
Bar 
1000: 
1020: 
1040: 
10805 
1080: 
11003 
1120: 
1140: 
1160: 
1180: 
1200: 
1220: 
1240: 
1280: 
1280: 
1300: 
1320: 
1340; 
1360: 
1380: 
1400; 
44205 
14490: 
1400: 
1480: 
1500: 
1520: 
1540: 
1560: 
15907 


3709 
433 
13041 
185114 
3??714 
35068 
24797? 
41993 
20686 
379977 
27257 
62650 
10561 
33836 
41100 
SPP 
300iz 
28114 
4958 
13233 
53655 
73704 
223833 
238063 
55778 
76637 
82157 
23778 
10977 
43875 
3374 
278649 
209919 
1622 
373553 
3374 
F9a00 
11492 
1622 
55258 
Aar3h 


120, 
120, 
120, 
134, 
248, 
120, 
084, 
119, 
120, 
120, 
163, 
168, 
118, 
119, 
119, 
248, 
117, 
119, 
119, 
119, 
120, 
120, 
120, 
123, 
120, 
118, 
118, 
120, 
120, 
120, 
120, 
120, 
108, 
119, 
248, 
126, 
120, 
000, 


120, 
117, 
120, 
120 

117, 
248, 
120, 
081 

120, 
119, 
120, 
120 

119, 
119, 
119, 
118 

070, 
070, 
072, 
075 

118, 
118, 
i18, 
120 

119, 
119, 
119, 
156 

119, 
119, 
119, 
121 

119, 
119, 
108, 
121 

124, 
235, 


1579- 
1&10- 
1630- 
1550- 
1670- 
1670 - 
1710- 
1730- 
1750- 
1770- 
I790- 
3810- 
1830- 
1850- 
1879- 
1890- 
1910- 
1930- 
1750- 
1F70- 
17970- 
2010- 
2030- 
z050- 
2070- 
2090- 
2130- 
2130- 
2150- 
2170- 
Zi90- 
22109- 
2230- 
2250- 
2270- 
2790- 
2310- 
2330- 
2350- 
2370- 
2390- 


18007 

1620: 

1690: 

1650: 

1680: 

1700: 

1720: 

1730: 

1760: 

1780: 

1800: 
1820: 

1840: 
1880; 
18806: 
1700: 
4920: 
1940: 
1r&0: 
1790: 
zaod: 
2020: 
2040: 
2080: 
2090: 
2100: 
2120: 
2140: 
Z180: 
2180: 
27002 
2220: 
22405 
22403 
2280; 
2300: 
2320: 
2340: 
2360: 
2380: 
2409: 


248, 
115, 
3650 
120, 
094, 
248, 
3660 
248, 
123, 
120, 
3870 
132, 
070, 
119, 
3680 
120, 
122, 
105, 
3690 
120, 
126, 
124, 
3700 
126, 
252, 
000, 
3720 
3730 
E" 
3749 
3750 
37680 
By" 
3770 
3780 
3790 


HR&{2ZI +CHRS (0) 
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131, 
103, 
DATA 
125, 
109, 
123, 
DATA 
125, 
120, 
109, 
DATA 
120, 
115, 
117, 
DATA 
129, 
120, 
248, 
DATA 
122, 
122, 
118, 
DATA 
122, 
119, 
000 
PEN i 


143, 
105, 
158, 
108, 
12?, 
126, 
099, 
120, 
124, 
120, 
t15, 
108, 
117, 
123, 
248, 
129, 
136, 
102, 
120, 
119, 
122, 
118, 
123, 
122, 
1724, 


116, 
120, 
i51, 
120, 
131, 
136, 
093, 
136, 
133, 
127, 
115, 
120, 
11?, 
248, 
124, 
248, 
136, 
126, 
114, 
120, 
ı21, 
238, 
123, 
121, 
117, 


116, 
118, 
116, 
125, 
113, 
132, 
156, 
125, 
122, 
117, 
125, 
150, 
116, 
i36, 
123, 
124, 
248, 
119, 
i21, 
248, 
119, 
124, 
248, 
119, 
120, 


121, 118, 
177, 152, 
113, 120, 
127, 115, 
109, 088, 
122, 122, 
138, 115, 
107, 108, 
107, 118, 
113, 123, 
248, 122, 
143, 248, 
122, 115, 
ii6, 123, 
114, 114, 
123, 109, 
124, 123, 
121, 117, 
120, 123, 
123, 119, 
120, 115, 
ı25, 120, 
122, 121, 
120, 115, 
119, 116, 


120, 
248 

115, 
113, 
078, 
248 

131, 
117, 
131, 
125 

107, 
050, 
119, 
123 

122, 
109, 
105, 
i17 

123, 
120, 
120, 
114 

120, 
120, 
000, 


LOCATE 3,4: PRINT CHRSI221H " SPA CH 


LOCATE 2,6:PRINT'TRE SC UE" 


PEN 3 


LOCATE 12,21:FRINT CHR&Et184)5" '96 


PEN 2 


LOCATE 11,23:PRINT'"R A INE R"® 
LOCATE 10,25: PRINTM UEL LE R"SC 


3800 LOCATE 30, 25:PRINT">"3ICALL KBBIE:R | 


ETURN 


65453 
58509 
47018 
65693 
siıaa 
47070 
65933 
57731 
46980 
&6173 
39293 
23128 
41597 
34742 
32652 
45858 
46194 
1718 
59747 
45735 
28121 
48606 
96176 
ı712 
63504 
47016 
27582 . 
48803 
38735 
1718 
66223 
47070 
28062 
50356 
36937 
1712 
62966 
A699 
27523 
37357 
20297 


2410- 2320: 
rs30- 2440: 
2450- 2950: 
2470- 2420: 
2470- 2500! 
2510- 2520! 
2530- 2540: 
2550- 2550: 
2570- 2580: 
25970- 2a00: 
Zal0- 2620: 
2630- 2540: 
2450- 2560: 
7570- 2680: 
2670- 2700: 
z7i0- 2720: 
2730- 2740! 
?750- 2780: 
2770- 2780! 
2790- 2800: 
2810- 2820: 
2830- 2840: 
2850- 2860: 
2870- 2880: 
2890- 2900: 
2910- 2920: 
2#30- 7940: 
2950- 2740: 
ZH70- 2980: 
2979- 3000: 
3010- 3020: 
” 3030- 3040: 
3050- 3040: 
3070- 3080: 
30709- 31005 
3110- 3120: 
3139- 3140: 
3150- 3140! 
3170- 3180: 
31790- 3200! 
3210” 3270: 


Compute mit 


2883 
681374 
40837 
156598 
12598 
49418 
3743 
59972 
127170 
1097695 
210854 
24477 
37056 
Ss5450 
4531& 
59797 
26500 
11894 
113509 
36627 
1919 
s71al 
24230 
1729 
337 
B2al2 
21033 
58647 
31870 
88214 
23643 
45556 
Sölzl 
647974 
43297 
A283 
48005 
63330 
353 
sig 
5847 


3230- 3240: 
3250- FR6D: 
3270- 3280: 
3270- 33005 
3310- 3320: 
2330- 32401 
3330- 336801 
3370- 3380: 
3390- 34001 
3410- 23420: 
3430- 34401 
3450- 3460: 


34709- 3480: 
349 3500: 
35i0- 3520: 


3530- 3590! 


3550- 3560: 
3570- 3580: 
3590- 36090: 
36109- 3620; 
3430- 3640: 
3650- Sad 
3570- 3680: 
3690- 3700: 
3710- 3720: 
3730- 3740: 
3750- 3760: 
3770- 3780: 
3790- 3900: 


zias4 
L6r1l2 
48555 
55124 
9266 
6559 
sa24l 
38760 
54817 
87715 
92136 
657143 
47534 
567368 
62470 
51251 
109952 
110203 
108928 
108067 
103550 
105802 
164552 
103892 
zr221 
25152 
19176 
15070 
s0032 


GESAHTCHECKSUMME: 


58334 
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Was gibt's Neues auf dem Software-Markt 
NEUE SCHNEIDER-SOFTWARE FÜR ALLE BEREICHE 





Ende letzten Jahres stellte die Firma Me- 
ı dia Plast vier neue Produkte für die 
I Schneider-Gomputer CPC 464, 664 und 
I 6128 vor. Neben einer Adress- und Datei- 
verwaltung wurden besonders die Ver- 
einsverwaltung und das Kassenbuch be- 
achiet. 

Die Dateiverwaltung zur Erstellung indivi- 
dueller, beliebig vieler Dateien verfügt 
über alle nötigen Funktionen, die profes- 
sionelles Arbeiten mit dem Programm er- 
möglichen. Sämtliche Such- und Sortier- 
kriterien stehen dem Benutzer genauso 
zur Verfügung wie die Möglichkeit, Listen 
auszudrucken oder Hardcopies zu erstel- 
ien. 

Besonders durch die große Flexibilitätund 
Benutzerfreundlichkeit zeichnet sich die 
Dateiverwaltung aus. Durch Verwendung 
von speicherplatzsparenden Program- 
miertechniken erreichen die Dateiverwal- 
tung und auch die Adressverwaltung eine 
sehr große Datenkapazität. Die Adressver- 
waltung besitzt durch Verwendung von 
Maschinenprogrammen besonders 


schnelle Such- und Sortierroutinen. Ge- 
speichert werden Daten einer Firma oder 
Person mit Kontennummer, Telex, Land, 
Bezeichnung und Notizen. Die Ausgabe 
kann sowohl über Etiketten oder normale 
Listen als auch Bildschirm erfolgen. 

Das Kassenbuch bietet eine schte Alterna- 
tive zu großen Buchungsprogrammen. Es 
eignet sich zur kommerziellen Bearbei- 
tung von Einnahmen, Ausgaben und Ent- 
nahmen. Angaben von fortlaufenden Bu- 
chungsbelegnum- 
mern, automatische 
Anzeigen der anfal- 
lenden oder gezahl- 
ten Umsatzsteuer 
sowie Ausdruck von 
Tageskassenberich- 
ten oder eines ge- 
samten Monats ma- 
chen das Programm 
professionell nutz- 
bar. Eine außerge- 
wöhnlich gute Unter- 
stützung für jeden 


Maitia Plast GmbH 
Lübecker Str. 32 
A600 Dortmund 


Nähere Informationen 


Vereinsvorsitzenden oaer Manager bietet 
das Programm Vereinsverwaltung. Ge- 
speichert werden können Personen mit 
Geburtsdatum, Eintrittsdatum, Funktio- 
nen im Verein, Mitgliedsnummer und An- 
schrift. Die Ausgabe erfolgt über Monitor 
oder Drucker als Listen sowie Etiketten. 
Neben der reinen Personenverwaltung 
bietet das Programm ebenfalls die Mög- 
lichkeiten der statistischen Untersuchun- 
gen der Vereinssiruktur. 

— 











EDOS besteht aus: 

einem Kopierprogramm für ganze Disketten 
{Disc-Copy), 

einem Kopierpragramm für einzelne Programme 
oder Dateien (Fie-Gopy), 

einem komfortablen Diskettenmonitor (Disc- 
Monitor), 

einer RSX-Befehlserweiterung mit einigen Dis- 
ketienbeiehlen {BASIG-Befehle). 

Die einzelnen Programmteile können von 
Basic aus aufgerufen werden. Das Disket- 
terkopierprogramm kopiert auch Disket- 
ten mit illegalen Sektoren. Mit dem Fileko- 
pierprogramm können auch geschützte 
Files kopiert werden. Eine modifizierte 
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DIR-Funktion zeigt versteckte Files an. 
Beide Kopierprogramme verfügen überei- 
ne Multicopy-Funktion. D.h,, eine Diskette 
oder ein File kann ohne erneutes Lesen 
mehrmals kopiert werden. 

Der Disketten-Monitor erlaubt u.a. dasLe- 
sen, Abändern und Schreiben einzeiner 
Sektoren. . 

Die neuen Basic-Befehle ermöglichen das 
Lesen und Schreiben einzelner Sektoren 
sowie das Formatieren einzelner Spuren 
der Diskette. 

An einem mitgelieferten Demo-Programm 


wir die Wirkung dieser Befehle verdeut- 
icht. 


CSomputhe mi 


im EDOS-Handbuch werden alle Pro- 
grammteile ausführlich erklärt. Darüber- 
hinaus erhalten Sie nützliche Tips und An- 
regungen zur Handhabung der Floppy 
(z.B. wird erklärt, wie Sie Ihren eigenen 
Kopierschutz realisieren können). 

EDOS ist also mehr als nur ein komforta- 1 
bles Kopierprogramm. 

EDOS ist das ideale Werkzeug für den Um- 
gang mit der Floppy. 

Lieferbar als 3“ und 5 1/4“ Diskette. 


Empfohlener Verkaufspreis 59,--DM 
{c) Unterrichtsmedien Hoppius, Wetzlar. 
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2. 


ist die ideale Ergänzung zu $tarTexter, dem 
erfolgreichen Textverarbeitungspro- 


. gramm für den Gommodore 64. 


: StarDatei stellt Ihnen einen „Karteikasten“ 


für Ihren C 64 zur Verfügung, mit dem Sie 
beliebige Daten auf Karteikarten spei- 
chern, ändern, suchen, ausdrucken und 
löschen können. 


StarDatei enthält diese Features: 

@ 100% Maschinensprache 

@ i90 - 645 Karten pro Diskettenseite 

@ Kartenformat 19 Zeilen mit je 40 Zei- 
chen sowie eine Titelzeile 

@ Schneller Zugriff, da sich alle Titel sor- 
tiert im Speicher befinden 

@ Beliebige Suchmöglichkeit nach Kar- 
tentitel oder -inhalt, auch mittels UND/ 
ODER-Verknüpfungen 

® Deutsche Umlaute auf Bildschirm und 
Drucker 


report 


@® Ideale Zusammenarbeit mitStarTexter: 
Daten der StarDatei kann StarTexter 
übernehmen - Serienbriefe an wech- 
selnde Adressaten lassen sich so mü- 
helos bewältigen 

@ Freie Gestaltungsmönglichkeit der Karte 
mit komfortablem Editor und dadurch 
vielseitig einsetzbar 

@ Einfache Bedienung durch sinnvolle 
Menüs und Kommandos 


StarDatei hilft Ihnen, Ihren G 64 sinnvoll für 
Dateiverwaltungsaufgaben - z.B. Ihre 
Adreßkartei - einzusetzen. Das Programm 
ist komfortabel, bedienerfreundlich und 
auch für Anfänger ohne Probleme zu be- 
wältigen. Dafür sorgt auch das leicht ver- 
ständiiche und qu£strukturierte Trainings- 
buch, das Ihnen einen schnellen Einstieg 
und die sichere Anwendung leicht macht. 
Buch und Diskette Best.Nr. 3413 

ISBN 3-88745-413-8, Syhex-Verlag, Düsseldorf 





stellt ihnen einen äußerst leistungsfähi- 
gen Editor, Assembler, Reassembler und 
einen Maschinensprache-Monitor zur 
Verfügung. Dazu erhalten Sie ein ausführ- 

| ‚liches Trainingsbuch, das Ihnen hilft, die 
Dienstprogramme schnell zu verstehen 
und direkt sicher einzusetzen. 


StarTeul enthält Dienstprogramme mit ei- 
ner außergewöhnlich bedienerfreundli- 
chen Konzeption und einigen sensationei- 
len Features. 


$tarTool auf einen Blick: j 

® Zeilenorientierter Editor mit Überprü- 
fung der Assembler-Syntax bei der 
Eingabe 

@ Formatierte Ausgabe des Quelltextes 

| @ Editieren von bis zu 8 Programmen 

gleichzeitig 

@ Label-orientierter Assembler 

@® Assemblieren direkt aus dem Speicher 
oder von Diskette 

@® Verknüpfung von Programmen 
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@® Direkte Programmierung des Disket- 
ten-Laufwerks 

® Bis zu 80 Zeichen/Zeile {horizontales 
Scrolling) 

® Benutzerfreundliche Tastaturbelegung 

® |eistungsfähige Befehlserweiterungen 

®@ Vielfättige Rechenfunktionen auf As- 
sembler-Ebene 

@ Reassembler zur Erzeugung eines edi- 
tierfähigen Quellprogramms 

© Programmierbares Drucker-Interface 
(Gentronics) 

© Maschinensprache-Monitor mit As- 
sembler- und Disassemblerfunktio- 
nen. 


Starfool bietet Ihnen leistungsstarke und 
bedienerfreundliche Dienstprogramme 
mit Trainingsbuch zu einem unschlagba- 
ren Preis. 

Wenn Sie Ihren Commodore 64 in Maschi- 
nensprache programmieren, sollte Star- 
Tool zu Ihrer Standardausrüstung gehö- 
ren. 


Compute mi 





Weitere StarSoftware-Produkte von $YBEX: 
3411 Commodore 64 Starfexter 

Buch und Diskette Best.-Nr. 3417 

ISBN 3-88745-417-0, Sybex-Verlag, Düsseldorf 
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‚programme 





Mit diesem Editor istes möglich, Texte auf dem Schneider GPG 464 zu erfassen bzw. zu verändern und in verschiedenen Druckarten 
auf dem Mairixdrucker M-1009 von BROTHER auszudrucken. Umlaute und „B“ sind auf den Tasten 16, 17, 19 und 22 untergebracht. 


Funktionen: 


SHIFT + TAB = Help-Funrktion 
SHIFT + CLR = Kommando-Mo- 
dus 


DRU = drucken {entweder mit Zeilen- 
nummer und im Einfachdruck 
mit Text-Kommandos oder oh- 
ne Zeilennummer mit ver- 
schiedenen Druckarten) 
anzeigen von ausgewählten 
Zeilennummern am  Bild- 
schirm (es können gleichzeitig 
verschiedene Zeilennum- 
mernbereiche auf dem Bild- 
schirm angezeigt werden) 
einlesen in Verbindung mit ei- 
nem Datei-Namen (die einge- 
lesene Datei wird sofort auf 
dem Bildschirm dargestellt, sie 
kann maximal 300 Zeilen mit 
je 75 Zeichen besitzen) 


ABS = abspeichern der derzeit im Ar- 
beitsspeicher befindlichen Da- 
tei in Verbindung mit einem 


Datei-Namen 


CAT = Anzeige der auf der Diskette 
befindlichen Textdateien auf 
dem Bildschirm 


Bearbeitungs-Kommandos: 


Ändern von Zeilen 

suchen von Zeilen (nach 
Zeileninhalt) 

E = Einfügen von Zeilen 

K = Kopieren von Zeilen in Puffer 
L = Löschen von Zeilen 

B = Puffer einfügen 


A= 
S= 


Beim Drucken, Anzeigen oder Bearbeiten 
von Zeilen wird immer die Angabe des 
Zeilennummernbereichs (von-bis) erwar- 
tet! 


Bearbeitungs-Funktionen: 


Während der Erfassung befindet sich das 
Programm im Überschreibmodus (außer 
beim Drücken der DEL-Taste). Beim An- 
dern von Zeilen befindet sich das Pro- 
gramm im Einfügemodus, es können ein- 
zelne Zeichen eingefügt, geändert oder 
gelöscht werden. Isteine Zeile voll, erfolgt 
allerdings kein Umbruch. Es stehen fol- 
gende Tasten zur Verfügung: 


CURSOR-LINKS und CURSOR- 
RECHTS zum Aufsuchen eines Zei- 
chens 

SHIFT + CURSOR-LINKS löscht alle 
Zeichen links in der Zeile einschließlich 
der Cursor-Stellung. 

SHIFT + CURSOR-RECHTS löscht 
alle Zeichen rechis in der Zeile einschließ- 
lich der Cursor-Stellung 

DEL-TASTE iöscht den Buchstaben der 
links der Cursor-Stellung steht und zieht 
die rechts stehenden Buchstaben nach 


Kommandos für die Druckausgabe: 


Im Text können Kommando-Zeilen einge- 
fügt werden, die die Steuerung für die 
Druckausgabe übernehmen. Eine Kom- 
mando-Zeile beginnt stets mit einem 
Punkt („} an der ersten Stelle. Es können 
mehrere Kommandos in einer Zeile ste- 
hen. 


Zentrieren einschalten bzw. ausschalten 
Kleindruck einschalten bzw. ausschalten 
Fettdruck einschalten bzw. ausschalten 
Doppeldruck einschalten bzw. ausschalten 
Unterstreichen einschalten bzw. ausschalten 


„ZE oder „ZA 
„KE oder „KA 
„FE oder „FA 
„DE oder „DA 
„VE oder „UA 


10 ’ X%* Texteditor / Robert Boettigheim 
er / Leonberg / 27.49.25 33% 
20° HHHRHHRRRRRHERE Bildschirm- und Tab 
ellenaufbau KHrHERRHEHIN 
30 ON ERROR GOTO 1560 90 
40 kes=CHR$(15): kassCHRst1B): }ı z=0: ı x%# Taster und Buffer 

’ #%% Kleindruck ein/aus 100 CLS: LOCATE 5,1: PRINT "SHIFT+CLEAR 
50 fes=CHRS (27) +CHRELE9): Fas=SCHRS (27) +C = Kommandos’; + 
HR& {7035 ’ %#%%* Fettdruck ein/aus 110 PRINT TAB(32) "Texteditor" 
50 det=CHREIZ7) sCHRSI7L): dasscHR&i27)+c TAB{38) "SHIFT+TAB = Erklärung"; 
HR& (723: " *%%* Doppeldruck ein/aus 120 LSCATE 5,2: PRINT STRINGS(?75,"-)E L 


70 ve&=CcHREIi27) +" - F+CHRS II): 
 X£#* Unterstr. 
uas=CHR&$i127) +"-+CHRE 0): 
" xxx Unterstr. aus 


GOISUB 1480: MODE 2: DIM z#1300), b&(1l 


ein 
Ss0 
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50 Sompupe mib 


4/86 


OCATE 5,283: PRINT STRING$(75,"-") 
120 WINDOW #1,1,4,3,22: WINDOW #2,5,80,3 


‚22: WINDOW #3,5,80, 24,25 
140 7 RHEIN Eingabe-Rou 
tine IRRRRHRHHHHNR 


150 CLS #35 5=0: 
" ##+ Spalte = 09 
180 LOCATE 1,24:PRINT USING "BHH’iıztrlss 
’ x%%+ Zeilenr. anzeigen 
‚170 IF z{300 THEN z&1z+1)=5TRING$ 1753," " 
JE: EALL &BB?B:’ %%% Cursor erlauben 
180 IF z>=300 THEN k$="ABS"; GUOTO 500 
170 s=st1: 
» #%% Spalte + 1 
200 LOCATE s+4,24: CALL &BESA: 
* #%%* Cursor ein 
z19 IF INKEY{4G)=32 THEN GOTO 320: 
’ %%% Help-Funktion ? 
»20 IF INKEY(14)=32 THEN GOTO 370: 
’ xx* Kommando-Eingabe 7? 
230 ast=INKEYS: IF a85=""* GOTO 210: 
’ %%%* Zeicheneingabe 7? 
240 IF a$<CHR$132) THEN k$=""t asztlı 60 
To 1250: * #3 Funktionstaste ? 
250 IF as>CHRS{(176) THEN kb="": 
OTO 1250:° #%#% Funktionstaste 7? 
260 PRINT asj: Mibtlz$tz+tl),s,1}=a$: 
* %%% Zeichen anzeigen 
IF s{?5 THEN 60970 170% 
” %%% Zeilenende ?7? 
z=z+1: PRINT #1,USING "#HH";z: 
°’ %%% Zeilennr. drucken 
270 PRINT #2, z2#&({z3: 
’ %%% Zeile drucken 
GGTG 150: 
’ *%#* Naechste Zeile 
SIO Tr RRHRKIHIRTIITTNH 
on KRRRKTRTKIITTHH 
320 IF s>i THEN GOTO 200 ELSE CLS #3 
330 LOCATE #3,1,1: PRINT #3, "A-endern E- 
infügen L-öschen S-uchen"; 
340 PRINT #3, TABt47) "K-opieren B-uffer e 
infügen"; 
350 LOCATE #3,1,2: PRINT #3, "EIN-lesen A 
NZ-eigen DRU-cken ABS$-peichern"; 
350 PRINT #3, TAB(52) "Rest-Speicher:"; TAB 
(573 FREU" 
370 k&=INKEYE: 


aszt1! 6 


270 


280 


300 


Help-Funkti 


IF k$<>CHRSI113) THEN 376 


ELSE CLS#3: GOTO 200 
SEO 7 KRRKERRITHIHTHTE Kommando 
1 OO KERN TFT NH 
370 IF s>i1 THEN 60T0 150 ELSE CLS #3: IN 
PUT #3, "Kommando: °,k$ 
400 kE=UPPERSIKkEIT IF k$="" THEN GOTO 15 
Or ° %%3% Eingabe erfolgt ?? 
410 IF k$="CAT" THEN CLS #1: CLS #2: WIN 
DOW SWAP 0,2: aß="%.": 5DIR,83a% 

WINDOW SWAP 2,0: INPUT""„38:CL5:60TG 

100 
420 IF k$="S" THEN 580: 
”» %#%%* Suchen 


430 IF k$="EIN" OR kt="ABS” GGTO 500: 


programme 


* %%% Dateiname eingeben 
444 IF k&="K" OR k$="B" OR kE=tE” 
"Am OR kS="L" THEN 4650 


OR k$= | 


450 IF k#="DRU" OR kE="ANZ" THEN 460 ELS 


E 150 


450 LOCATE #2,20,1: INPUT #83, "von Zeile 


ss " an: IF au > z GOTO 450 

470 IF k$="E" OR k$="B" GOTO 480: ELSE I 
F an=0 GOiO 3970 

480 LOCATE #3,40,1: INPUT #3, "bis Zeile 


ı =, en: IF en < an GOTO 4650 
4750 IF k$=e"B" AND en>tz+ti) GOTO 330 
500 IF kSS>"B" AND en>z GOTD 430 


510 IF k$#="DRuU" THEN LOCATE #3,60,1: INP 
UT #3, "Z1.Nr.(J/W: "°,j$r GOTO 710 

520 IF k#="ANZ" G0TO #90 ELSE IF kE="A" 
GOTO 790 ELSE IF k$="L" GOTO 1146 

530 IF k$="K" GOTO 1170 ELSE IF 


0TO 1220 
540 IF k$="E" THEN LOCATE #3,60, 1: INPUT 
#3, "Zeilenzahl: ",in 
550 IF in?>O THEN GOTO 950 ELSE 3%0 
SEO 7 KERRKTTITITN TR Suchen 
KIEIIIIIIHHHTH ER 
5?0 LOCATE #3,20,1: INPUT #3, "Suchbegrif 
+:",5$: IF s$="" THEN 150 
580 FOR i=1 TO z: IF INSTR(l,z$ li), s#) T 
HEN an=i: en=i: GOSUB 70 
570 NEXT: st="": GOTO 150 
SOO 7 KRITIK 
geben KERERKKRITTRTTRT 
810 LOCATE #3,20,1: INFUT #3, "Dateinane: 
".dsı IF k$="ABS" THEN 670 
E2EO KREIEREN 
r KERRTRTEIIHITNH 
#30 z=0: DOPENIN ds: 
* %% 
IF EüF=-1 THEN CLOSEIN! GOTO 
” %%*%* Dateiende ?? 
LINE INPUT #9, z&lz): 
” %#%%* Zeile einlesen 
650 PRINT #1,USING "#44", 2: PRINT 
1:G0T0 540:° 3% 
Et’ III 
ern ERÄRKNKKHHNINTH 
530 DFENOLT d&: FOR i=1 10 z: 
z$ti)s NEXT: CLOSEOUT: 
BP 7 RKRRÄRTETHRERTR 
n KREIIITTITIITIIINNH 
700 FOR i=an TO er: PRINT #1,USING "#44" 
sis PRINT #2,z$ti): NEXT: GOTOG 150 
PO 7 RRRRRRITITTRTNH Drucke 
n KERRTRTIHTTTTNH 
720 FOR i=an TO en: IF UPPER$ij$)="J" TH 
EN PRINT #5, USING "#HB#"51r: 
FRINT #38, TAB(5) zSti): GOTO 350 
730 IF LEFTS(zS$ti),1)<>"." THEN 800 
7a9 IF INSTRIl1,2%81i},",KE") THEN kd=i EL 
SE IF INSTRIl,28ti1),".KA") THEN kd=0 
750 IF INSTR(l1,z811),".FE") THEN fd=l EL 
SE IF INSTRIl1,z8&ti),".FA") THEN fd=0 
760 IF INSTRILl,z&11),".DE"} THEN dd=1 EL 
SE IF INSTRiL,z$ti),".DA") THEN dd=od 


Dateiname ein 


840 150: 


650 z=z#t1: 

#2,28(Z 
Abspeich 
PRINT #9, 


GSTG 1509 
Anzeige 


Gompuhe miß 


ke="Bt GG | 


Einlese | 


öl 





programme 


770 IF INSTRIL,2$ti),".UE”"} THEN us=1 EL 
SE IF INSTRil,2$li1),".UA"} THEN us=0 

780 IF INSTRil,zE3), 7. ZEI) THEN zen=i E 
LSE IF INSTRiL,z$1i1),"”.ZA") THEN zen=0 
‚r0 IF LEFTS(z#t1),1)=*." THEN 880 

800 IF kd=i THEN FRINT #3,ke#5 ELSE IF k 
d=0 THEN PRINT #3,ka$} 

sıa IF #d=1 THEN PRINT #8, fesr ELSE IF # 
d=C0 THEN PRINT #5, 1883 " 
820 IF dd=1 THEN PRINT #8,de&; ELSE IF d 
d=0 THEN FRINT #2,Ja$} u 
830 IF us=1 THEN PRINT #8,ues; ELSE IF u 
s=0 THEN FRINT #5,ua$j 

840 IF zen=1 AND UFPER$S1JE)="N" THEN lis 
0: re=0: GOSUB 870: GDTO 850 

850 PRINT #8, TABt1) z#ii)sCHRE(1335 

850 NEXT: G60T0 150 

270 7 III 

en KERKEREEKERTERITR EIN RRIN 
850 FOR s=i TO 75 IF MIDStz#t1i},5,1}=" 
#4 THEN lirlisil ELSE s=?5 





Zentrier 


870 NEXT s 

00 FOR s=?5 TO 1 STEF -1: IF MIDStz#1ti) 
„s,i}=" " THEN resretil ELSE. s=l 

S10 NEXT s 

920 IF {litre}>?5 THEN PRINT #5, TAEID) 
STRINGS(?75," "}3: GETO 950 


30 IF (litre){Z THEN FRINT #3, TAB{l) z 
${i)s;: GOTO 950 

740 PRINT #8, TAB(1} SPCLINTt(litre)/2I335 
MID&S{zsSti}, {lisi1), (75-1li-re) } 3 CHR$ (1333 
#50 RETURN 

BED ! KEITH 

en KERHKRERERRIITH 
70 FOR i=z TO en STEF -i:! z$ti+in)=z&li 
})s z&1i}=STRINGS#HI?7S5," 

920 NEXT: z=ztin! anzantlı: en=santin-i 


Einfueg 


SEO ORKRRKRTTRRITRTK Aender 
n KEERKEHEHERTTIN 
1000 £LS #3: FOR a=an TO en: s=0; 

"KR 


1010 LOCATE 1,245 FRINT USING "’##4"jaj: 
* ##% ZI.Nr. anzeigen 
1020 LOCATE 5,24: FRINT z&la};: 
’ *%% Zeile anzeigen 
1030 IF z$ta)="" THEN z#(a)=STRINGS1(?5, 
„ey: CALL &BB?E 
1040 s=s+t1lr 
’ #%# Spalte + 1 
1050 LOCATE sr4,24: CALL &EBSA: 
” *#%% Cursor einschalten: 
10509 as=INKEYS: IF as="" GOTO 1080: 
>’ wir 
1070 IF a${CHR$ (32) OR as>CHR&t1258) THEN 
SOTO 125077 #383 . 
1080 IF MID#tz#(34),75,1) <> " ° THEN CAL 
iL &BBSD: GOTO 1050 
1090 MID$tz&{a), {s#+1l), (?5-s))=MIDE (2$1a) 
‚5, 175-s)) 
3100 MID&stiz&1a),s,1}=a$: LOCATE 5,24: PR 
INT zsta)35 
iiiö IF si?5 THEN GOTO 1040: 
ae 5 5 5 


Sompube mib 





1120 PRINT #1,USING "###"jar PRINT #2,2# 
(a): + 
1130 NEXT a: IF s&="" G0TO 150 ELSE RETU 
RN: ’ %%% 


1140 7 KEITH Loesch 
en KRRRRRIKHRTINIT 

1150 FÜR i=san TO z: ’ 
LExE 


1150 IF tirtien-an+tl))<i=z THEN MIDE{z$ti) 
‚1,79 =z&tirlen-an+i)): 
1170 IF lirlten-anti))>z THEN MIDstzsti), 
1,7593=STRINGS 75," ") 
1180 NEXT: z=2-(ten-an+i): GOTO 150 
1150 ° III Kopieren i 
n Buffer KERFKTHTIRTIIN 
1200 ERASE b$: b=en-antli DIM b&$th) 
1210 FOR i=1 TO bi bEti)=zettanti-1): NEX 
T: G0T0 150 
1220 7 KIN E 
nfuegen ERRERRIKKTTTITH 
1230 en=santil: FOR i=z TO en STEP -1: z&t 
itb)=z$ti}s NEXT 
1240 FOR i=1 TO b: z$tanti)=b&ti}: NEXT! 
z=z+b: G0T0 156 
I250 7 RRERERKKIERIRTR KT 
asten KRÜRKRRRRTRTIRTR 
12560? KIT E Cursor nach links 
bzw. rechts FRRIHHITTIRTNNIH , 
1270 IF a$=sCHR$1242) AND s>1 THEN s=s-1: 
CALL &BBED: GOTOG 1410 
12309 IF a$=CHR& (243) AND s{?5 THEN CALL 
&BESD:IF k$="" THEN 170 ELSE 1040 
12709’ RIFF links bzu. recht 
s loeschenr III HH 
1300 IF a$s=CHR$ (245) AND s>i1 THEN MID&Iiz 
&{3),1,5)=5TRINGEts," "): GDTO 1400 
1310 IF aS=CHR& (247) AND s{?5 THEN MIDE( 
z#8{3),8, (76753) =5STRINGEI (76-58)," ": 
GOTO 1300. 
1320 7° RENTEN 
ERKRKKIERERTRTER 
1330 IF as=CHRs(13) THEN CALL &EBSD: IF 
k$="" THEN 280 ELSE 1120 
1340 IF aS<S >CHRS1127)3 AND ke=ne GOTO 230 
H ’ %%% DEL-Taste ? 
1350 IF as‘ >CHR$(127) AND k$i>"" GOTO 10 
50: " x#i# : 
i340 IF s {= 5 AND kt="" GOTO 2305 
’ 3x+ 1. Stelle ? 
1370 IF s {= 1 AND k&i>"" GOTD 1050: 
Kr 
1380 MIDS$t2#&1{a), {s-1), (76-s))=MIDE iz&$ (2a) 
‚5, 176-5)}:’ #8 Zeichen Loeschen 
1370 MID$12$(3),75,1)=" "ı s=s-i: CALL & 
BESD: ’ %%%* letzte Stelle blank 
1400 LOCATE 5,24: PRINT z$t(a}: 
’ %%%* Zeile anzeigen 
1410 IF k$="" 60T0 200 ELSE 60TG 1050: 
" %%% Eingabe od änderung ? 
4420? KRITERIEN  Variablen-L 
isste III TER 
1430 ’ z$=Zeile b£=Buffer ks-kommando 


Buffer ei 


Funktionst 


Returntaste 


akt 


tips & tricks 


49407 
35718 
47723 
25013 
85687 
64723 


800: 
820: 
840: 
gen: 
a80r 
900: 
F20: 
940: 
En: 


d$=Datei jt=Ja s$=Suchbegr. 
1449 * z=Z1l.Nr a=21.z2.Aend 
=Bu.Zl.Nr ansv.Zl. en=b.2l. 
14507 IEIIIIIII III III RT 
EEK KEKKNTTKHTRTHN KT III: 
1450 ° EHI "A-B-Grd-U-ü-ß" definieren 
und Tasten belegen K* 

14370 SYMBOL AFTER 70: OPENGUT 
EMÖRY HIMEM-i: CLOSEDUT 

1430 SYMBOL 91,219,60,102,102,125,102,10 
2: " 34% grosses "A" u. kleinss "A" 
1490 SYMBOL 123,198,0,120,12,123,204,118 
ı KEY DEF 17,1,123, 71 

1500 SYMBOL 972,102,60,102,102,102,102,60 
: ’ 23% grosses "5" u. kleines "0" 
SYMBOL 124,102,0,50,102,102,102,80: 
DEF 22,1,124,®2 
SYMBOL 93,238,0,198,178,178,178,124 
H ’ x%* großes "Ü" u. kleines "ü" 
1530 SYMBOL 125,102,0,102,102,102,102,62 
: KEY DEF 19,1,125,93 
1540 SYMBOL 128,60,102,102,108,102,102,1 
08,98: ’ 8 "8" 
1550 KEY DEF 24,1,126, 126: 
1550 RESUME. 1570 
1570 IF ERL=1470 THEN RETURN ELSE PRINT 
"Fehler in Zeile: " ERL 


7F0- 
Bio- 
830- 
850 - 
870- 
BIG- 
F10- 
930- 
750- 


CHECK VL:PRUEFSUMMEN? 
s=5p.Nr b ZETLENNR.2 SUMMEN 
20: 28737 
ı 26135 
50- e0t115218 . 
ı 95366 
ı 77500 


17406 
&2792 
19157 
11748 
54055 
67557 
15789 
3731 
113425 
1100: 38861 
1120: 79197 
= 46525 


P80: 
1009: 
1020: 
1040: 
3060: 
10907 


970- 

390- 
1010- 
1039- 
10950-' 
1070- 
1990- 
3110- 


a DUPMY u F 


179- 
"M 210- 


1510 
KEY : 82795 
1 ea] ı 82874 


ı 45353 1950- 
1470 
1499- 
1510- 
1530- 1540: 
ı550- 1560: 
1570- ; 59417 


+ 55820 GESAMTCHFCKSUMME: 


RETURN 


Haben Sie Ihr Programm richtig eingegeben, können $ie nun die 
ersten Texte editieren, 





trace 


Die im Basic der Schneider GPG-Rechner 
enthaltenen Befehle zur Tracebehandlung 
sind schon relativ hilfreich bei der Unter- 
suchung eines Basicprogramms, das 
nicht so läuft, wie erwartet. Aber gerade 
bei längeren Programmen ist es recht 
mühsam, sich durch den Wust von Zeilen- 
nummern durchzuarbeiten. 

Dieses Programm erleichtert die Fehlersu- 
che erheblich, indem es die vom Interpre- 
ter behandelten Basiczeilen auf dem Bild- 
schirm listet. Um die Bildschirmausgaben 
ihres Programms dabei möglichst wenig 
zu stören, erfelgt das Listen in einem von 
Ihnen beim Befehlsaufruf festgelegten 
Window. 

Die Geschwindigkeit des Listens ist auf 
circa eine Basiczeile pro Sekunde einge- 


4/66 


stellt. Ist Ihnen die Ausgabe zu schnell 
oder zu langsam, können Sie durch 


FOKE &A458,wert 


die Geschwindigkeit variieren. Den von Ih- 
nen gewünschten Wert müssen Sie in 1/ 
50 Sekunden eingeben. 
Basiczeilen, die mehrmals direkt hinter- 
einander vom Interpreter bearbeitet wer- 
den, z.B. INKEY$-Abfragen, werden nur 
einmal ausgegeben, 

Der Listtrace-Modus wird durch den Be- 
fehl 


ILFRON,X1,XIYLYZ 


eingestellt. X und Y beziehen sich wie 
beim WINDOW-Befehl auf die Koordinaten 
des von Ihnen gewünschten Windows. 
Durch den Befehl ILTROFF wird der Listtra- 
ce-Modus wieder verlassen. 


Compube mi 


Die Befehle ILTRON und IETROFF können 
Sie entweder im Direktmodus oder in Ih- 
rem Programm zum Ein- bzw. Ausschal- 
ten des Listtrace-Modus benutzen. 

Nach dem Start des Basicladers wird zu- 
nächst ein kurzes Ladeprogramm auflIhre 
Diskette oder Cassette geschrieben, an- 
schließend das eigentliche Maschinen- 
programm. 

Da das Ladeprogramm als ASCII-Datei 
abgespeichert wird, kann es auch beim 
CPG 464 von Diskette zu einem bestehen- 
den Programm „gemerged“ werden. 
Nach dem Start des Ladeprogramms 
durch ’RUN 65000’ wird die Maschinenrou- 
tine geladen und die Befehle in die RSX- 
Tabelle eingebunden. 

Die Befehle ILTROn und ILTRAGE stehen 
Ihnen bis zum Zurücksetzen Ihres CPC zur 
Verfügung. 


Listing siehe nächste Seile! 


53 


‚tips & tricks. 


1090 7 
KEITH 

110 * trace mit listing 
120 ’° fuer cpc 4447/669/6128 
1309 * (c) wolfgang boenigk 
130 7 EEE I 
150 
180 ° 
170 

180 

170 MODE 2:LOCATE 20,10 






450 DATA CD,658,BB,24,33,A5,CD, 75, BB, 2A,0 
0,00,9E,23,46,50,59,24,30,43 

450 DATA AF,ED,52,28,07,ED,53,30,A5,DF,2 
7,A5,CD,768,BB,22,33,A5,Di,Ei 

950 DATA CD,66, BB,E1,CD,75,BB,068,32,CD,1 
?,ED,10,FB,CD,A2,A4,F1,C1,Di 

#70 DATA E1,FE,SD,C0,ES,DS,C5,11,00,A4,2 
1,30,45,CD,BA,A4,C1,D1,E1,C9 

450 DATA FE,04,C2,AB,A4,DD, 66, 06,25,DD,5 
6,04,15,DD,8E,02,20,D0,5E,00 

490 DATA 1D, 22, 3E, AS, ED,53,40,45,21,01,0 
200 MEMORY kASFF 5 adr=&A300 1,22,33,A5, CD, 68, Aa, 3E,01,32 

zi0 WHILE a$k}"’ende" S00 DATA 00, 00, 2i, 2D, AS, 11, 5A ‚BB,C3,BA,A 
220 READ a$ 4,3E,05,DF,24,A5, AF,32,00,00 

230 arvALU"R"+2$) s10 DATA 21,35,A5,11,5A,BB,01,03,00,ED,B 
240 FOKE adr,a 0,C7,21,5A,8B,11,35,A5,CD,BA 

250 sum=sumta i adr=sadr+i 520 DATA A4,CD,00,89,34,02,C0,FE,01,28,0 
250 WEND. A,33,132,01,E3,E1,11,55,C0B,18 

z70 IF sum‘>339853 THEN PRINT "Error in D | 530 DATA 06,01,E8,E1,11,58,CB,21,1F,AE,1 
ATAs T"IEND 8,07,91,0D,E1,11,78,CA,21,38 

280° 590 DATA AE,Z2,A0,64,22,B2,A4,E0,423,27,A 
270 FRIMT "Bitte Diskette oder Cassette 5,ED,53, 24, AS, 2B, 28, 22,32, 4 

einlegen !" 550 DATA CD,62,89,01,10,A5,21,38,45,C3,D 
500 LECATE 10,12 1,56,18,A5,C3,78,49,C03,BO,A4 

310 PRINT "Die Befehlserweiterung wird a | 530 DATA 40,54,52,4F,CE,40,54,52,4F,46,C 
uf Tastendruck abgespeichert," 5,00,00,00,FD,00,00,FD,03,65 

320 CALL &BEB1S. S?0 DATA A4,03,00, Ad,ende 

330 OPENOLT "LTRACE" 580 

=40 FOR ieil TO 53 SPO0 DATA 65000 LOAD "LTRACE.BINF 

350 READ 2% 800 DATA 85010 CAL KASCO 

350 FRINT#F,5$ 8iß DATA 585020 DELETE 85006-685020 


370 NEXT i CHECK VLIPRUEFSUMMEN: 350- 370: 5397 


380 CLOSEGUT | 360- 390: zum 


ZEILENNR.: SUMMEN 400- 410: 537 


370 SAVE "LTRATE.EBIN”,5,%A900,&135 100- 110: 37706 A20- a0: 24208 


| 
I 
1z0- 130: 46237 | 440- 450: 69056 
400 END 140- 150: 16394 460- 470: aus 

















































S20- 530: 34540 


H 150- 170; 779 480- 470: 845575 
Äi0 7 120- 1704 25da 
| 540- 530: 5R1L29 


500- 510% 67507 
420 DATA C3,65,A4,FE,5B,02,35,A5,E5,D5,C Bao aa: 2a 


220- 230: Z1413 





3,F5,21,2A,A5,11,00,A4,CD,BA 280. 270: Souss Seo. 290: 1avıa 
430 DATA A4,CD,B4,44,CD,78,BB,ES,CD,67,B\| 300- 210: adase „been er me 
B,ES5,D5, ZA, 3E,AS,ED,5B, 40,45 g20- 330: 4699 GESANTCHECKSUNME: 57958 






349- 350: 8775 









Unter der Rubrik „Werkstatt“ veröffentlicht die Redaktion Utilities, die für den Umgang mitdem 
Computer von wesentlicher Bedeutung und Arbeitserleichterung sind. Heute stellen wir Ihnen 
vor: 






Tippen Sie zunächst das Programm ab weise auch auf dem Drucker. Wollen Sie Programm reiten, drücken Sie die ““ Taste 
und starten Sie es mit dem Befehi Aım. Das ein gelöschtes Programm retten, laden Sie des Zehnerblocks und laden Sie das Pro- 
Programm catalogisiert nun die gelösch- dieses, drücken die kleine ENTER-Taste und gramm. Anschließend wieder die kleine 
ten Files auf dem Bildschirm oder wahl- speichern es wieder. Wollen Sie noch ein ENTER-Taste drücken und speichern. 








54 Sempute mib aß: 


O3 u m 


k 
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Die Taste „OD“ des Zehnerblocks wird caia- 
logisiert. Sie erkennen an der User-Num- 
mer, in welchem Modus Sie sich befinden. 
Ist diese Nummer „0“, sind Sie im norma- 


lerı Modus, ist sie 229, dann befinden Sie 
sich im Modus der gelöschten Program- 
me. Die mit ERA,A$ gelöschten Program- 
me werden nämlich im User 229 abgelegt. 


_werkstatt 


Taucht bei dieser Üperation irgendein 
Fehler auf (z.B. FILE NOT FOUND), ist die 
Diskette nach dem Löschen nochmal be- 
schrieben worden. 





10 2 RRSHRHHHHRRSHHHRHHHHRSHHRBAHRHHRGE 
ie. 


20 + 
30 ’%* Programm - Retter + 
40 ’% + 
50 °’%* {ic} by JR - Soft 12/1985 * 
50 ’%* + 


Fa IIIIIIIIHIIIIIIIIH HH 
80 MODE 1 

oa CALL &5602 

100 PEN 1 

110 PRINT:PRINT 

1206 FRINT"Bitte Diskette mit den geloest 
hten Pro-" 

130 FRINT"gramnen einlegen." 

140 PRINT 

150 PRINT"'Dann Taste druecken,.„." 

150 CALL %&BB04 

170 PRIMT 

180 PRINT 

170 PRINT"Ich CATalogisiere jetzt die ge 
loeschten" 

200 FRINT"Frogranmme.* 

zi0 PRINT 

220 FRINT"Auf "+HCHRSIZA) HH" B"’HCHRE (241 Hr" ji 
idschirm oder auf "} 

230 FRINT CHRS (ZA) Hr" D"+CHRS I Z4) F"rucker 
{D/B)" 

240 a$=INKEYS! IF UPPER$ia&)="" THEN 240 
ELSE IF UPPERS{a&)="D" THEN GOTO 550 
250 °’ 

250 * Die Speicherstelle %&3701 ist die 
270 * die geloeschten Programme werden 
280 * auf User 229 abgelegt. 

290 

POGKE &A?O1,227:CAT 


320 ° 
. 330 
KEY. 128, "cat"+CHR$(13) 

KEY 138, "poke %&3701,229"+CHRS(13) 
KEY 139, ”poke &a701,0"+CHR$113) 


Tastaturbelegungen 


370 PRINT:PRINT"Bitte Taste...":CALL BB 
04 \ 

380 CLS 

390 PRINT: PRINT"Sie haben die Liste der 


gelceschten Fro-"; 

400 PRINT"gramme gesehen. 
ndet hier." 

410 FRINT"Sie koennen jetzt Beispielswei 
se das" 


Das Frogramm e 


Gompute mi 


570 


420 PRINT"Frogramm ’Name’ laden und dann 

die kl." - 
430 PRINT"ENTER Taste Jdruecken und wiede 
r Saven.’”’ j 
440 PRINT 


450 PRINT"Druecken Sie den ’.' auf dem Z 
ehnerblock"j | 
4580 PRINT"befinden Sie sich wieder im Mo 
dus der geloeschter Programme." | 
470 PRINT"Die ganze Sache funktioniert n 
ur, wenn die Diskette nicht wieder besc 
hrieben wurde." 
43090 PRINT:FRINT 

470 PRINT"Die Taste 


'G°’ des Zehnerblocks 


tATed automatisch. An der Userzahl e 
rkennen Sie, in welchem Modus {0=Norma 
1,227= geloeschte Programme Modus} Si 
e sich befinden. Jetzt muesste alles 
klar sein." 

500 END 

510 ’ 

520 * Dieses Programm kann auch einzeln 
530 ” verwendet werden, Es lenkt alle 
540 * Ausgaben an den Drucker, wenn die 
550 ’ Zeilen 450 und 470 weggelassen 
5&0 ' werden. 

s70 

580 FOKE &A701,227: MODE 1 


PRINT"Bitte Drucker anschalten und a 
uf ONLINE" 
500 PRINT 
810 a=PEEK (&BBSA}:b=PEEK (&BBSEB):Cc=PEEK (Re I} 
BBStC) | 
620 FOKE &BB5A,ECHIFPOKE KBESB,&kZBIPFOKE & 
BBSC,&BD | 
8309 CAT 

840 PÜKE &EBSA,a:POKE &BBSB,b:POKE &BBSC 
‚ce 

50 GOTO 2300 


CHECK V1:PRUEFSUMMEN} 330- 340: 12096 
350- 360: B2082 
ZEILENNR.: SUMMEN 370- 380: 22897 
10- 20: 31850 390- 400: 42703 
30- AD: 34267 a10- 420: 7830 
50- sa: 30777 430- #90: 8014 
70- 80: 30008 450- 460: 67972 
90- 1005 1395 470- 980: 14926 
110- 120: 13515 490- 500: 37688 
130- 140: 18442 ! S10- 520: 62215 
150- 160: 27286 ! 530- 240:169582 
1?0- 180: 382 f 350- 580: 52516 
170- 200: 25994 | 570- 580: S&BB 
210- 220: 34175 - =50- 600: 7763 
230- ?a0: 03881 &10- 820: 33149 
250- 240: SıZBl 630- 640: 38480 
270- 280: 86997 450- ai 
270- 00: 07 | rasmmenmamnnne nennen nn 
310- 320: 24757 25667 


" GESAMTCHECKSUMHE? 


50 


u6 


programme 





Das Überwachungssystem der Weltraumbehörde meldet den Anflug eines Ver- 
bandes feindlicher Flugobjekte, der trotz mehrmaliger Aufforderung den Kurs 
zu wechseln, mit unverminderter Geschwindigkeit der Erde immer näher 
kommt. Sie, als Commander des GPG-Raumgleiters erhalten nun den Auftrag, 
die Angreifer zu stellen und wenn nötig zu vernichten. 


Nach langer und ermüdender Suche stoßen Sie auf die Spur der 
feindlichen Weltraum-Armada. Am Ende einer rasanten Verfol- 
gungsjagd in der Stratosphäre, also nicht mehr weit entfernt vom 
letzten Schutzschirm der Erde, gelingt es Ihnen, den Feind zu stellen. 
Ohne großes Vorgeplänkel kommt es sofort zur erbitterten Schlacht. 
Nutzen Sie die Feuerkraft Ihres Raumgleiters und zerstören Sie die 
gegnerischen Raumschiffe (Fadenkreuz auf den Angreifer steuern 
und Joystick-Feuerknopf befätigen). Doch aufgepaßt! - Die fliegen- 
den Untertassen feuern ohne Unterbrechung zurück. Falls Sie von 
diesen dreimal getroffen werden, explodiert Ihr eigener Raumgleiter, 
und die Erde ist dem Feind schutzlos ausgeliefert. 


| Vorprogramm 


12 === Vorprogramm === 

20 ° === STARFIGHT == 

Bi 

42 GÜSUB 110 

sa MODE 1:INK B,„24:INK 1,2:INK 2,2:INK 3 


„Ss: BORBER 26 

Ha LOCATE 12,5:FEN 1:FRINT"A.M.Soft pre 
sent:" 

78 LOCATE 15,9:PEN 2: PRINT"STARFIGHT” 

aa LDCATE 1,15: PEN 1:FRINT"Die Stariiga 
bittet Sie entwas zu wartenda das 5Spiei 
gerade geiaden wird. 

78 LOCATE 15,24:FPEN S:PRENT"LOADING. „." 
iao RUN "!STARFIGHT 

112 Symbel 
129 SYMBOL AFTER 47 

132 SYMBOL 49,24,.36 .36 , 36 36 , 36, 36,24 
149 SYMEOL 49,8,24,40,428,9,8,8,8 

159 SYMBOL 5@,17,20,36,36,8,16,32,62 
1658 SYMBOL 51,24,36,4,24,24,4,36,24 
17B SYMBOL 52,648,48,49,430,52,9,8,8 
1BB SYMBOL 53,58,32,37,48,8,8,8,48 
172 SYMBOL 54,12,16,32,32,96,26,, 36,56 
Zur SYMEOL 55,52,4,9,08,15,16,16,1& 
218 SYMBOL 54,24,36,36,24,24,36, 36,24 
229 SYMBOL 57,24,36,36,28,4,4,4,8 

229 RETURN 





GSomputs miP 







CHECKE Y1=:PRUEFSUMMEN 
140: 
140: 
190: 
zB: 
220: 


139- 
158- 
ı178- 


23225 
23588 
r35ßö2 
198- 23642 
zı1ı0- 235264 
230- 201 


GESAMTCHECKSUMME: 9247 


ZEILENNR. = 

20: 
42: 
u: 
88: 


SUMMEN 
3453B 
1074 
41591 
20875 
1dG: 25449 
120: 11805 


| arımmann 


18- 
38- 
32- 
’B- 
F0- 
118- 





12 

22 x» STARFIGHT «+ 92 5 Grafic . 
Sa ' a {cc} by 5: 92 "- sby A.Hauber: 
4a : A„.M. Soft : 120 " : % . 
sg > 112 : A.M. Soft : 
oA ° : Dez. 1985 IE" EP S*r 
za”: & 130 2 


1489 MODE 1:LDCATE 9,12: PRINT’Bitte 2 Min 
uten warten" 
152 GOSUB 2412 


160 GDSUB 7568 

172 G0TO 1948 

182 ENV 5,15,1,1:sENV 1,5,3,1,5,-2,1,1,8, 

4,5,-1,1:ENV 2,5,341, 5,32: ENY 4,5,3,1, 
-2,1,5,-1,22ENY 3,5,1, 1, 3,3,1,3,-3,1,5 

aisl 


190 x=302: y=2Q6: sc=d:t=B:r=B: as: h=Q:g=d 
xkells yyadıbafß: z=ß: res: gf=ß: schu=d: sch= 
9: sprite=42018 

zu2 RANDOMIZE TIME:KEY 128,"mode 1:pen 1 
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speed key 29,1 "+CHR#(13) 

zı2 SFEED KEY 1,3:5PEED INK 5,5 

228 ON BREAK BOSUB 3242 

232 MODE B:CLS 

za CELL 33012 

2528 MOVE x ,„y:RESTORE 2542: CALL sprite 
268 b=RND#+32B 

272 ° ——-—- Hauptteil --- 

288 IF r>=5fd THEN MOVE a,b:RESTORE 24008 
:CALL sprite:SOUND 1350,600,20,2,2,2:z=15 
GOTO 348 

290 IF r>=458 THEN 
:CALL sprite: SOUND 
GOTD 348 

3a IF r>=358 THEN 
sCALL sprite: SOUND 
GOTD 342 

31@ IF r>=258 THEN 
‚CALL sprite: SOUND 
GOTO 348 

328 IF r>=151 THEN 
:CALL sprite:5SDUND 
GOTO 348 

33@ IF r{=158 THEN 
:CALL sprite:5DUND 
=} 

548 j=J0OYt@): IF j=@8 THEN 408 

332 IF ij AND 8 THEN MOVE x,y:RESTÜRE 254 
B:CALL spriterx=x+3i:hea:r geb: a=3arknND#4B: 
GOTO 9724 

354 IF 53 AND 4 THEN MOVE x yıRESTORE 254 
B:CALL spritersex-32:hrargrb: a>a+tRND#AB: 
GOTD 778 

37@ IF 3 AND 2 THEN MOVE x ,„y:RESTORE 254 
B:CALL sprite: yry-Z24:h=sa: geb: b=eb+RNDH 32: 
GOTO 778 

38a IF 3 AND 1 THEN MOVE x „y:RESTORE 254 
8@:CALlL sprite: yay+tZ4:h=arg>=b:b>=b-RND#32: 
GOTO 978 

378 IF j AND 1& THEN 1170 

408 gf=gf+1:IF qgf=29A THEN gf=R:schu=INTt 
RND#11):IF schuss OR schu=s8 OR schuss] TH 
EN 525 

418 : 

420 IF r>=4Q8 THEN MOVE 
sCALL sprite:G0T0 488 
438 IF r>=458 THEN MOVE 
:CALL sprite:G0TD 488 
249 IF r>=35B THEN MOVE 
sERLL sprite:G0TD 458 
458 IF r>=259 THEN MOVE 
:GALL sprite:G0TO 495 
AD IF r>=151 THEN MOVE 
:CALL sprite:5öTfo 480 
478 IF r<i=158 THEN MOVE a,b:RESTORE 
:CALL sprite 

480 5=b+RND#24: IF b>352 THEN b=lö 
498 a=a+RrND#32: IF a>r=4ß0 THEN a=d:b=RND+ 
3088: IF bi=1d THEN bei 

SARA r=er+1:IF r>=088 THEN r=ß 

sie GOTO 288 

Ss2B _-— Schuss Feind --- 


MOVE a,b:RESTORE 2498 
130,508,28,2,2,2:z=1: 


MOVE a,b:RESTORE 2258 
130,408,29,2,2,2:2=2: 


MOVE a,b:RESTORE 2342 
139, 308,28, 2,2,2:1z2=2: 


MOVE a,b:RESTORE z118 
139,2008,20,2,2,2:2=3: 


MOVE a,b:RESTORE 2198 
130,1890,298,15,2,2,31: 


a,b:RESTORE 2408 


a,b:RESTORE 2498 
a,b: RESTORE 
a,b:RESTORE 2348 
a,b:RESTORE 2110 


21902 





25a 


programme 


5308 PRINT CHRF(ZEICHRE (I): 

ga2 MOVE ari2,b-3:DRAW Q,4G2,1:PLRT a+tl2 
„bB3: DRAW HAD,AuB: PLOT a+12,b-3: DRAW 320 
[#4] 

y 

s5R CALL %BD19:50UND 1,72900,29,15,1 

Söh MOVE a+17,b-3:DRAW 0,420,1:PLOT ari? 
„b-3:DRAW 540,402: PLOT a+t12,b-3: DRAW 329 
[2 

F 

578 PRINT CHRECZZICHRE (BI) 4 

S92 sch=INT(RND*A) : IF sch=4 OR sch=1 DR 

sch=2 THEN GOTO 6280 

538 tr=tr-1: IF tri=8 THEN 1258 

638 FOR q=A TO 208 STEP 18:5QUND 4,1+gq, 

29,13: BÜRDER RND*?7:NEXT:50UND 1,1000, 28 
‚15,1,2:BORDER 12 j 

618 LOCATE 15,24:PEN 15: PRINT"TREF="3:L[L0 

CATE 15,25:PEN 14: PRINT tr3:=[.DCATE 1,1 

“278 GOTO 428 

630 '-——- Treffer FPruefen --- 

&48 IF TESTix»-2,yy+r4)<>9@ THEN 498 

ss IF TESTIRR,„yy+täa)cıa THEN 4089 

Sb IF TESTIxx#+2,yy+t4a)i5a THEN 5498 

573 GDTO 490 

530 IF TESTixx-2,yy+t4)=14 THEN 670 

87a IF TEST(xx ,yytr4)=12 THEN 878 

aa IF TEST{x» ,„yyt4)=13 THEN 578 

zıa IF TEST(xx,„yyt4)=143 THEN 478 

28 IF TEST(x% ,yytr4)=15 THEN 670 

739 IF TESTixx2,yy+t4)=12 THEN 670 

7/aa IF TESTIxx+2,yy+4)=1iZ THEN 678 

75a IF TESTixx+t2,yyt4)=13 THEN 670 

768 IF TEST(xx+2,yy+t4}=14 THEN 578 

77@ IF TESTiax+t2,yyt4)=15 THEN 86780 

738 IF TEST (xx -2,yy+4)=15 THEN 470 

98 IF TESTiax-2,yy+4)=12 THEN 678 

SsaARB °" --- Treffer -—— 

gie IF z=3 THEN sc=sc+ti1@ 

87RA IF z=2 THEN sc=sc+29 

830 IF z=1i THEN sc=sc+50 

a8 FOR q=i TO 382 STEP 2:BORDER RND*#27:5 


-DUND 1,700+ (q*20) ,„28,15,1,1,&:BORDER RND 


*27:NEXT:SOUND 4,7200,300,15,2,2,2: BORDE 
R 12 
850 LOCATE 2,24:PEN F:FRINT"SCH "sr LOCATE 
1,25:PEN 12:PRINT sc; 
BähR LOCATE 15,24:PEN 157PRINT"TREF: "3: LO 
CATE 15,25:FEN 14: FRINT tr;sLOCATE 1,1 
878 IF r>=4ßld THEN MOVE =,b:RESTORE 2408 
:CALl sprite:GOTO 739 
SB2 IF r>=452 THEN MOVE 
:CALL sprite:Gofd 938 
872 IF r>=350 THEN MOVE 
:CALL sprite:S0OTO0 970 
7a2 IF r>=252 THEN MOVE 
:CALL sprite:GOTO 730 
718 IF r>=151 THEN MOVE 
:CALL sprite:GöTO 9730 
szBu IF ri=158 THEN MOVE 
:CALL sprite 
758 a=B:t=t+l:t=d:gf=d 
749 SOUND 1,220,18,15:50UND 2,250,10,13: 
SOUND 4,288,19,12 
750 CALi. %&BD17 


a,b: RESTORE 249% 
a,b: RESTORE 225% 
3a,b:RESTORE 2342 
&,b:RESTÜRE 2119 


a,b:RESTORE 2178 


Compute miß 


57 


38 


Programme. 


Fa FOR q=a TOD 1AB:NEXT q 

772 GOTO 258 

980 END 

7784 °'-———- Position Fruefen -— 

12a0 IF x>598 THEN x=398 ELSE IF x<190 T 
HEN x=1?0 

1B1a IF y>326 THEN y=-325 ELSE IF y<92 TH 
EN y=97 

1929 MOVE x ,„y:RESTORE 2548: CALL sprite 
1032 IF r>=488 THEN MOVE h,g:RESTORE 749 
2: CALL sprite:G0T0 1898 
1842 IF r>=458 THEN MOVE 
2: CALl sprite:G60T0O 19706 
1952 IF r>=352 THEN MOVE 
2: CALI sprite:GüfTO 1972 
10848 IF r>=258B THEN MOVE h„g:RESTORE 
R:CALL sprite: BOT 1890 
1878 IF r>=151 THEN MOVE 
GB: CALL sprite:GOTO 1298 
1888 IF r<=15B THEN MOVE 
B:EALL sprite 

1270 IF b>35B THEN b=35%2 
N b=3 

1198 IF r>=488 THEN MOVE 
RD:CALt sprite:G60T0 1160 
1118 IF r>=458 THEN MOVE 
B:CALL sprite:GDTO 1168 
i1l2# IF r4=352 THEN MOVE 
28:CALL sprite:sGOTG 11588 
1134 IF r}=258 THEN MOVE 
2: CAll sprite:50T0 11658 
1149# IF r>=151 THEN MOVE 
2: CALL sprite:G0TO i1sd 
1158 IF r<=152ß THEN MOVE 
@:CALL sprite 

ilsd GOTO 3708 

1178 ' -——-—- Schuss --- 
1189 PRINT CHRECZSICHRE (1) 

1170 zuaex+72: yyay-h 

1208 MOVE 8,428: DRAW xx ,yy,3:DRAW 542,40 
z 
i210 
1228 
17358 
1248 
1259 


h,g:RESTORE 247 


h,g=:RESTORE 225 


234 
h,g:RESTORE 211 
h,gzRESTORE 219 


ELSE IF b<S THE 


a,b:RESTORE 248 


Aa,b:RESTORE 249 


a,b: KESTORE 225 
a,b:RESTORE 
&,b:RESTORE 211 


aA,b:RESTORE 217 


MOVE 8,400: DRAW xx „yyıDRAW 649,402 

SOUND 1,190,20,15,1 

PRINT CHRE&CZSYCHRE (BI -LOCATE 1,1 

SOTO &38 

GEITO 3928 

1258 " ——- Game over ——- 

1278 FÜR t=@ TO 24: INK 3,t: INK 15,t: INK 
14,12:1INK 15,t: INK 12,::5SDUND 1,1Q0+ttx4), 
194,315: BORDER RND#27: NEXT 

1288 FOR t=24 TD B STEP -1:INK 3,t:1INk 1 

S,t2INK 14,t:INK 13,t: INK 12,t:SBUND 1,1 

0+{t%4) ,18,15:BORDER RND#?7:NEXT 

1290 BORDER G:MODE 1:INKk 1,24: INk 2,2,68 
INK 3,6,4 

i3AB@ FOR t=G TO 480 STEP Z:MOVE 9,1: DRAW 
158, 2A0,RND#Z+1:MOVE 640,1: DRAW 470,208 
„RND#2+1:SQOUND 2,12+t,19,15,1,2:NEXT 

1512 LOCATE 15,35:FPEN 2:FPRINT"STA"S:PEN 1 

:FPRINT"RFI"3=PEN 3:PRINT"GHT" 

132@ LOCATE 15,5:PEN ZıPRINT"STAR"”S:FEN 

Zs PRINT"FIGHT"- 


1539 LOCATE 15,12:PEN 1:PRINT"GAME DVE 


GSompute mit 





'ı720 


RK" . 

1348 LOCATE 18,17:PEN 2: PRINT"SC: "sc 
13558 IF sc>hi THEN hi=ssc 

1368 LOCATE 18,1F7:PEN 3:PRINT"HI=";hi 
1378 LOCATE B,?24:PEN ?rPRINT"Press "s:PE 
N 3:PRINT"Fire "s:PEN 2:PRINT"ta "::PEN 
S5:PRINT"a "5:PEN ZIPRINT"new "3ıPEN F:PR 
INT"Game" - 

1598 WHILE JOY{@?<>1&: BÖRDER RND#+27:WEND 
15398 FOR t=@ TOD 25:CALL %BC4D:SOUND 135, 
(£+10)#4,8,15,2,12NEXT 

31489 MODE G:BORDER 25: INK Q,1 

1410 LOCATE S5,2:PEN Z:PRINT" STAR"3:PEN 
3:PRINT"FISHT" 

1428 LOCATE 1,18:PEN 1:PRINT"Das "STARFI 
GHT'’er Kommando begruesst Sie zu eine 
m neuen Versuch den Flanetenzu retten." 
1430 LOCATE 5,24:PEN 3:PRINT"PRESS *"3:PE 
N Z:PRINT"FIRE":PEN 1 


1440 WHILE JOY{M)<F14:WEND 

1450 INK 3,6:INK 2,4:INK @,8:INk 1,28 
146 GOTO 1758 

1478 ° --—— Anleitung ———- 

1434 MODE 1 

1478 INK Q,15: INK 1,24: INK 2,0: INK 3,3 
1500 FOKE &BIC8B,B:PGKE &BICF,„%CC:POKE &B 
109 ,&33 


1518 LOCATE 6,1:FEN 1:PRINT"STARFIGHT" 
15290 POKE &B1C9,1:POKE &BICF ‚„2B8:POKE &B 
1D9,%44: PORE &B1D1,%22:POKE &B1D?,&1i1 
1530 LGECATE 1,4:PEN 2:PRINT"Sie haben di 
e Ehrenvolie Aufgabe unsere Erde zu Rett 
en und dazu muessen Sie in einen Raumgl 
eiter steigen der auf seinem Jung“. 
ernflug ist." . 

1540 PRINT:PEN 3:PRINT"Sie steuern dabei 
das Fadenkreuz auf Ihren Gegner und 
druscken ab.Das Ziel- kreuz kann nicht 
aus der Umrahmung gelenkt werden." 
1558 PRINT:PEN 1:PRINT"Treffen die Gegne 
r Sie drei mal ist es vorbei mit dem Tr 
aun vom grossen Geld. PAber trotzdem soil 
1 es welche gegeben haben die es uebe 

rlebt haben.” . j 

1548 POKE &BICH8,Z:FOKE LEIEF EBBS:FOKE ER 
10D9,%22 

1578 LOCATE 5,22:PEN 1:PRINT"PRESS FIRE" 
1580 POKE &BiCR,1:POKE &BICF„&B8:FOKE %B 
109,%44:POKE &B1D1 .&22:POKE &B1D2,&11 
1590 WHILE JDYIEOI<PIG: WEND 

td MODE DO 

161B LOBEATE S,i1:PEN 2:PRINT"STARFIGHT" 
1428 LOCATE 1,3:PEN 1:FRINT"Die Funkteta 
belie:" 

1538 INK 1,18: INK 4,10: Ink 5,142INK 9,19 
1640 LOEATE 54,7:PEN 3:PRINT"- 18 Punkte" 
L 

15858 ORIGIN D,O 

1564 MOVE 5,3QDA:RESTORE Z118:CALL sprite 
1672 LGCATE 54, 11:PRINT"- 28 Punkte" 

1582 MÜVE 5,249: RESTORE ??SR:CALL sprite 
1478 LOCATE 6,15: PRINT"—- 328 Punkte" 

MOVE 5,1BB:RESTORE 2428: CALL sprite 


weiter $. 60. 


4/86 


u: 


Bewerbung als Programmautor 

















Name: Vorname: Alter: 
Straße: Wohnort: 
Somputersystem: 





: Titel des Programmes: 





Erforderlicher Speicherplatz: KBytes 
Erforderliche Peripherie ___—_———_...... ——————————— u nn en nn 


Ich versichere hiermit, daß ich der Autor des oben genannten Programmes bin und alte Rechte besitze. Ich bin damiteinverstanden, daßSie 
mein Programm in einer Zeitschriftabdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt +?0 DM pro abgedruckte Seite. 
- Solite das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. 


: Folgende Unterlagen liegen diesem Schreiben bei: 
Kassette: ____ Bike _________ Dokumentation: ____—. —— Listing: __. ——— Rückporto: 


Unterschrift des Programmautors: 





| Einsenden an: Tronic-Verlag Abt. Programmentwicklung, Am Stad 35, 3440 Eschwege 





Auftrag für Gelegenheitsanzeigen in „Compute mit..‘ 


Name und Adresse 










An „Compute mit...“ 
Tronic-Verlag 
Postfach 

3449 Eschwege 











Unterschrift 





Unter der Ribrik „Kleinanzeigen“- Ich wünsche folgenden Text zu veröffentlichen: 


veröffentlichen wir Gelegenheits- u 
. 1. F 
anzeigen für Verkaufsangebote, IR RD DR DR DR HR DR DR RD DR U RR 


Kauf- und Tauschgesuche, Kon- I U IR BR BE BE BR NE HE [HRS DER Ta Du Ba BG DE BE EEE GE BE INN It 
taktaufnahme bzw. Erfahrungs- | Il I: | | \ 1 ; f 


austausch usw. 


Aktuell: 
Unsere Preise für „Kleinanzeigen“: j ; | 
Jede Kleinanzeige nur 10,- DM 


Jede gewerbliche MO IR Ua DR GR DD DR DD DD VO HR DR DR DR RR DR RR RD 
Gelegenheitsanzeige nur 15,- DM dd | 4 | If Id | 14 
Kuren nicht unter Chiffre erschei Eu | Eu ; 
Eine Veröffentlichung erfolgt mar LK It 1 A | | | ! | ! It! | 
gegen Vorkasse! - Zutreffendes ankreuzen 
Kleinanzeigen jetzt suche O Software suche.C Hardware © Tausch © Versch. 


noch preiswerter biete an ÜO Hardware OÖ Kontakte O Chiffre 
































biete an O Software 


4186 Compube mib 59 


kleinanzeigen 










c-16, C-116, plus/4 Superspie- 
tetinfo 1 und 2 gegen Rückpor- 
to bei Hannes Kaitenbach, 
Prielmayerstraße 16, 7990 Frie- 
drichshafen 1 





#* % Commodore Knüllerpreise A * 
% Korenis Rift (K) 35,- * 
* Spellinker  (K} 39,- * 
% Goonies (K) 35,- (D) 59,- & 
* NowGames?2 (K} 30,- * 
®* Arcade Hall (K) 32,- (0) 55,- * 
# Mastertronic Soft (di) g-# 
%* Gr. Softwareangebot für 5 # 
»x Gomputer Service Postfach 1304 #r 
% #* 7913 Senden, 030/20 





Supersoftw. zu Spitzenpreisen 
AIRWOLF G-16 nur 28,95 
AIRWOLF CPC-464 nur 23,95 
STARCOMMANDO 

C-18/GPG 18,95 
GHOSTBUSTERS für G-64/ 
CPO-464/664 auf Casselle 

nur 53,95 
Lieferung frei Haus: keine zu- 
sätzlichen Kosten! 
Versandhandel R. Linden- 
schmidt, Schulstr, 4972 Löh- 
ne 2, 





C-16  Vermessengspregramm C-64 
12 -Berechnungsprogramms 
mit teilw. mehreren Berech- 
nungsmöglichkeiten; 5 Daten- 
verwaltungsprogramme:; Me- 
nü- u. Abfragegesteuert; Koor- 
dinatenbibliotnek für 255 
Punkte;  Druckersteuerung, 
Kassetten 0. Diskettenbetrieb. 
Tel. 0220571858. 


50 





COMMOPORE 16.116 4 


{ JOYSTICKS/SPIELE/BÜCHER ETC.) G 
KOSTENLOSE INFOS ANFORDERN BEI 


> Soltuare-Versand 
A.BACHLER 
POSTFACH 429 


4290 BOCHOLT 


Commod. 64, VC-20, C-16/136 
& Spiele ® Denkiraining 8 Bi- 
blo ®@ Kartei & Kfz-Programme 
@ YS3i@ Video- Musik-Fatoar- 
chiv®& EK& Denktraining® Su- 
pergenie# Tabello # Digitelo 8 
Adress ® Fibu ® Handbuch - 
ab 19,80 DM. & Katalog gegen 
80 Pf-Marke. ® # # T. Holsie- 
des Computerservice, A.d.- 
Windmühle 8, 5010 Bergh. 5. 





C-54 # C-64 EC 
Verkaufe Superprogrammpa- 
ket. Für nur 10 DM. Info kosten- 
los! Karte an: St. Auernhammer, 
Triebweg 4, 8901 Meitingen, 
+ SOFORTIGE ANTWORT # 
Suche billigen Floppy für den 
C-54. Angebote an oben ge- 
nannte Adresse. 





„= Jedes Programm nur 3DM 
A bei M. Schlarmann, Hein- 
ichstr. 18, 2843 Dinklage 8 
für GPC 464. Liste gegen 
E 50 Pf Rückparto in Brief- 
a marken. PROGRAMME © 
BNUR AUF KASSETTE. | 
E (keine Raubkopien) 

















GPC CPC CPC CPC CPC 


U 


"DM 


| SOFTWARE AUCH FUR ANDERE COMPUTER! 





C-18/116 — Vieiseitige Grafik- 
programme, Angabe von Koor- 
dinaten, perspektivische Ver- 
zerrung, gezeichnete Bilder 
können gespeichert werden, 
übereinander nroilizieren meh- 
rerer Bilder, - Kassette DM 20, - 
Info gegen Porto. S. Rätzsi, Ui- 
venbergsir 6, D-68100 Darm- 
stadi. 








SCHNEIDER CPC ® SCHNEI- 
DER CPC. Spiel- und Änwen- 
derprogramme aus Eigenent- 
wicklung für Ihren GFPC erhal- 
ten Sie zu zivilen Preisen bei 
Friedrich Neuper, Postfach 72, 
8473 Pfreimd. Fordern Sie ein- 
fach das kostenlose Info an. 





DER BAANDNEUE SOFTWA- 


REVERSAND Spitzensöftware _ 


zu Spitzenpreisen für VO-20; 
C-16; C-64; CPC-464, CPC- 
664; Atari XE/XL/MSX. 
Lieferung frei Haus: keine Por- 
tokosten: keine Nachnahme- 
gebühr: keine Mindestbestell- 
menge. Kostenlosen Katalog 
anfordern bei Versandhandel 
R. Lindenschmidt, Schulsir, 
4972 Löhne 2. 





Ah Commodore Knüilerpreise % 
* 

# MPS 801 289,- Mon.1702 598,- 
Ar Disketten No Name 1D 105.22, - #& 
* Diskbox f. 100 Disk 5,25” 27,- %& 
# Quickshot 2 18,907 4 29-% 
* Quickshot 7 26,90/ 9 39,- % 


.- #* Schutzhaub. 664 10,-/71541 10,- Wr 


%* Adapter Joystick an 616 10,- * 
%* Computer Semwice Postfach 1304 # 
% %* 7913 Senden, 0737/20 # W 





* * Commodorefan’s aufge- 
paßt! & x Wir haben die Super 
Spiele, Erweiterungen, Anwen- 
derprogramme & Interface für 
C-64, 0-128, VC-20, C-16 & C- 
116. Z. B. Bricks, Typingtutor, 
DX, Amazor, Scheltinierface % 
solange Vorrat reicht Bücher. 
Katalog gegen 1,60 in Marken 
bei: Soft- & Hardwarevers. U. 
Tiedau, an der Ölmühle 77, 
4370 Dorsten 1. 





Verkaufe folgende Originale je 
einmal; DT. Decaihlon 29 Di4; 
Roland in Time 15 DM; Alten 
Break-In 15 DM; Diamant v. Ra- 
berfels 15 DM; Caves of Doom 
10 DM; Master Chess 20 DM; 
Ch Mummy 15 DM. Alles zus. 
100 DM. (NP » 230 BM). Bar/ 
Scheck an Rainer Müller, Krap- 
fenäckerweg 9, 7442 Neuffen, 
Teh: 07025/3894 (ab 16.00 
Uhr). Sofortige Lieferung (Kas- 
settey!!! 
©-18/C-116/Plus 4 — Super- 
spiele! Info gegen Rückporio 
bei Hannes Kaltenbach, Priel- 
mayerstr 16, 7990 Friedrichs- 
hafen 1. 














C-64: Ewiges Leben 1300 1 Po- 
kes für nur 10 DM. 280 Spiele- 
und 70 Prg.pokes. Vokabelprof 
kann 4000 englische Vokabeln 
und fragt diese wahlweise d-e, 
e-dJ ab. Wahnsinnspreis: 30 DM 
it 90 versch. Rechenprg. ent- 
hält Maiheprof. Alles Menü ge- 
steuert! Disk 30 DM. C. Lind- 
hoff, Schelmengraben 7, 6120 
Michelstadt. 


Funkfernschreibprogramm 
{(RTTY) fürCPG-464 7664 / 6128 
Soft- u. Hardware incl. Konver- 
ter, AFSK, Festiext, Drucker- 
Vorschreib- und Empfangs- 
speicher. Machen Sie Ihren 
GPG zum prof, Fernschreiber. 
Anwendung z. B. beim Ama- 
teurfunk. Info kostenlos bei: 
Stefan Peim, DL7AGQ, Frie- 
drichsruher Str. 32, 1000 Berlin 
33, Teil. 0307/8242943, Mor- 
sen mit dem SPC a.A.! 


Verkaufe meine Commodore- 
Bücher: C16/0116/Pius 4, Rom- 
Listing (NP: 59 DM) f. 20 DM + 
vC20 Spiele Bücher (NP 30 
DM) f. 10 DM + Logo f. C64 {NP 
159 DM) f. 100 DM + alles über 
054 u, VG20 (NP 59 DM/19 DM) 
f. 40 DM /5 DM + C654 Spiele- 
Buch (NP 30 DM}f. 20 DM + Ma- 
the mit C64 (NP 35 DM) für 25 
DMH Alles in Top-Zustandil! 
Rufe mich ab 17 Uhr an: 
02202/52248. 





Sommodere 16/115: Wir haben 
die Programme, die Sie su- 
chen! Die tollsten Software zu 
Taschengeldpreisen! Infos 
kommen kostenlos von: An- 
dreas Bächler Posifach 429, 
4290 Bachaelt. 

Außerdem: 5 Top-Spiele zu i9,— 
DM (kleines Überraschungs- 
packel! oder 8 Top-Spiele zu 
20,- DM (großes Überra- 
schungspaket) 


SOFTWARE FÜR JEDEN COM- 
PUTER? Tolle, unglaubliche Ga- 
mes jetzt auch für !hren Com- 
puter! informationsmaterial 
kommt kosteniosfürschneider 
CPC 464/664, VO-20, Commo- 
dore 64/16/116/Pius von: 
Software-Versand: Andreas 
Bachler, Postfach 429, 4290 
Bochalt 





Sempute mir 
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| Biete Hardware | 
>» Einmalige Chance! 8a“ 
Schneider GPG 664 mit Farb- 
monitor, Datenrecorder, Joy- 
stik, Diskettenbox (10 Stück), 
Floppybuch, Basicbuch, Zeit- 
schriften, Sonderhefle, reich- 
lich Software auf 3”-Disketten, 
Anwender- und Spielprogram- 
men für nur 2000,- DM (Fesi- 
preis) abzugeben. Meldeteuch 
bei: Joachim Kwikert, Roma- 
nusweg 1, 4780 Lippstadt 4, 
= 02941/8798. 





Verkaufe G-115 + Datas + Ba- 
sic-Lern-Cassetie für 170 DM. 
Tel: 02843/5102. 





Verkaufe günstig Commodore 
C-116 mit Datasette und Origi- 
nal-Commodore-Basic-Kurs 
auf Kassette. Angebot ab 18 
Uhr unter Telefon 0 82 947394. 
Suche Supersoft bis Fi85. 





SUPERANGEBOT!! Verkaufe 
neuen C-115$ mit Datasette, 27 
Spiel- u. Anwenderprogr. und 
einen Basiclernkurs (Buch-+ 
CGass.) für nur 140 DM. Pro- 
grammkataloge gratis! Suche 
C-654 mit Datasetts und evtl. 
Spieiprogrammen. Schreibt 
an: Ändre Vienerius, Bockeler 
Schweiz 22, 2841 Wagenfeld 1, 
Tel.; 05444/83835. 





Magnetkarten Codiergeräf 
3 Lese-Schreibköpfe nach ISO 
NORM mit Bildschirm, Tastatur 
und Mafrix Drucker. VB. 
w069/642488, 





VC-20-FREAKS. Kaum ge- 
braucht: VC: 100,-; Erw. 3K 
50,-; 16K 90,-; 5 Advent. Scott 
Adams a 25,-; 2 Original Spiel- 
module a ?20,-; Schach 20,-; 
Div. Spiele (Teilw, Original) je 
Kassette 8,- Zusammen nur 
400,-. Tel, 07142/31274 oder 
tagsüber 07 11/86 737149, 





\ialen Dank für Ihr Interesse an unseren Froduk- 
ten. 


| Wir liefern wie folgt: 


j Für VE-20: 


Super Madulbox 1020 von bummodere, Ganzmıe- 
tallgehäuse, 5 Steckplätze, Vollfunktionsfähig, 
ohne Garantie. Gommodare-Preis 480,-- DM Un- 
ser Preis 160,-- DM Sie sparen 300,-- DM (Rest- 
posten) nur solange Vorrat reicht. 


Warum sollten Sie auf dieses Vergnügen verzich- 
ten? 


Akustikkoppfer AS-A 2480 nach GCITTW.21 Norm 


Anschlußfertig für Ihren 20er Kumplettpreis + Ka- 
bel und Terminalpragramm [Treibersotfware) für 


nur 220,-- BM (Ohng FTZ-Ni. 


ACHTUNGÜKUN FOLGEN DIE TIEFSTFREISE FÜR UNSE- 
RE STECKMOBLLE 

Speichererweiterung SkKB .. . - 
Speichererweiterung I6kB . . . - 
Speichererweiterung 32KB .... 


Speichererweiterung GAkB 
plus steuereprom 


Programmierhilfe-Modul 
15 neue Befehle 


Maschinensprache-Moniter-Modul 
| Srafik-Modul plus 3KB Speicher . 


40/80 Zeichenkarte, 
die muß man haben!! ... 


27,00 OM 
47,00 DM 
139,00 DM 


143,60 DM 


28,00 DM 
29,00 DM 
29,00 DM 


nur 135,00 DM 


Preise Inc. 14% MWSt. zuzgl. Portoerpackung! 
Nachnahmegebühr. Bei Y-Scheck, Überweisung 
(Vorauszahlung) werden keine Verpackurgsko- 
sten berechnet, genauso wie die Nachnahmege- 
bühr entiällt. 


Richten Sie Ihre Üherweisung bitle an: 
Postgiroamt Ludwigshafen 
Fa. H.FT. Electronic & Go 


| Konto N:.-2067 84-676 
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WEITERE ANGEBOTE 1111 


DRUCKER 

Panasonic KX-P 1080 

mit NLA I007SE0. 2.2.00 .. 650,00 DM 

Panasonic KX-P 108} 

tBM kompatibe! 

Panasonic KX-P 1092 

!IBMY/EpSER Kompatibet TBUZ/Sec. 

Panasonic KX-P 1592 

jetzt NEU für DIN A3 Papier ... 1410,00 DM 
.260,00 DM 


830,00 DM 
1920,00 DM 


Commodore MPS 801 
Der Preiswerte 


INTERFACE 

Yıesamann Intert.G64/Gentionies 
grafikfähig 

\Wiesernann Interf.C64/Gentronics, 
8K Puffer, Grafik 


SOFTWARE 

Eisk-Manager für Floppy 1541 
2.B.. Tonkopfjust. 
Disk-Compressor C654/1541 
macht aus 100 BLK-50BIk 


AKUSTIKKÜPPLER 

Dataphon 5 21 d.ohne Interf., 
Leitung u. Software 

Dataphan s 21 d + Interf,, 
Leitung u. Software f. 664... 


AUTO - MODEM 

Automodem anschtußfertig an 064 + Steuersoft- 
ware 158,00 DM 
Automedern wie oben, 

aur Tür IBM u. Compatible .. .. 220,00 DM 


MONIFORE 

Farbmioniter Orion GCM 14 

RGB + AV Eingang 

Farbmonitor Orion CCM 1280 .. 850,00 DM 
Farbrnonkior +901 mit RGB 

mit A/V Eingang 940,00 DM 
Giagi bernstein mil Ton entsplegeli 300,00. 0M, 
Ciagi grün mit Ton... . 250,00 DM 


GOMMONORE 

Commodore C-128 . 
Commödsre C-128-D . 
Commodore L-64 
Commodere Floppy 1571. 
Commodore Floppy 1570 . 
Commodore Floppy 1541 


TUREOS 
Turbo-Tape-Modul für 664 
Twbo-Disk-Modul für 664 
und Floppy 1541 


135,08 DM 
165,00 DM 


30,00 DM 
30,00 DM 


245,00 DM | 
.. 320,00 DM 1 


500,00 DM 


v: 849,00 DM 
. 1580,00 DM 
488,00 DM 
889,00 DM 
675,00 DM 
489,00 DM 


35,00 DM 
35,00 DM 








‚verser 


YC-20 + BDataseite + 3K + 3K- 
Erw. Drucker, Bildschirm (grün) 
Kassetten, Paddles, Kabeln, 
Spielmodulen, umfang. Bücher 
SYBEX-Assembler-Kurs usw. 
Alles für nur DM 800,-- VHB. 
2800 Bremen, Tel. 0421/ 
384846. Mo-Fr. ab 17.00 Uhr. 





COMMODORE C-115 SPEZIAL 
BAK-RAM ohne Steckmodu!- 
Anschlußbelegung 60671 By- 
iss free od. Graphic + 4J&K Free, 
tür nur 250 DM. 

O. Schmätzle, Franz-Schubert- 
Sir. 10, 7602 Oberkirch, Tel. 
07202/6028 nach 18 Uhr. 





Verkaufe wegen Systemwech- 
sei Commodore G-16 mit Daia- 
sette u. Joy-Stick u. verschie- 
dene Programme. (DM 250,- {2 
Monate alt). An Dieter Friese, in 
den Hillerswiesen 3, 6320 Als- 
feld-Heidelbach, Tel. 06698/ 
510. 


Glub- 


Nachrichten 





Computerelub Husum C.CH. 
Der C.C.H. besteht seit Mai 
1985. Ursprünglich war er als 
regionaier Club für Besitzer di- 
Computer gedacht. 
Durch die Mailbox hat er sich 
aber über das gesamte Bun- 
desgebiet und Österreich aus- 
gebreitet. 

Die Altersstruktur der Mitglie- 
der erstreckt sich von 15 bis 48 
Jahren. Vorhandene Rechner 
sind zur Zeit C-64, Schneider, 
Atari, Acorn A und B. 

Der Austausch von Erfahrun- 
gen und Informationen ist vor- 
rangiges Ziel des Clubs. Statt 
des geplanten direkten Aus- 
tauches erfolgt dieser wegen 
der großen Verbreitung im Rah- 
men eines noch unregelmäßig 
erscheinenden Infos und über 
die TINE-Mailbox (04841/ 
1881), die 24 Stunden online 
ist. 

Anfragen zum Club: Hans Wal, 
ter Latus, Postfach 1347, 2730 
Zeven, Tel: 04281/6442, 
oder in der Mailbox an FE- 
STUus. 


Compute mib 





kleinanzeigen 


%  ACHTENG SCHREIDER FREUNDE #* 
Wir haben eine neue Kontakt- 
adresse: 
Schneider-Computerclub-Saar 
Kai Michael Birkmann 
Bergstraße i1 

6601 Riegeisberg 

Tet.: 06806/3282 

Bei uns gibt es verschiedene 
Arbeitsgruppen, die sich inten- 
siv mit verschiedenen Themen 
beschäftigen (z. B. Frogram- 
mieren in Basic, Turbo Pascal 
und Assembler; Arbeiten unter 
CP/M; Arbeiten mit Vortex Fiog- 
py und Speichererweilerung 
uvam. Neue Mitglieder, die 
ideen und Änregungen mitbrin- 
gen oder Interesse am Erfah- 
rungsausstausch haben, kön- 
nen sich an obige Adresse 
wenden. 


Unser Schneider-User-Glub, 
der sich noch stark im Aufbau 
befindet, sucht noch Mitgiie- 
der. Es erscheint monatlich ei- 
ne Zeitschrift mit vielen Tips 
und Tricks, Listings und Infor- 
mationen. Wir freuen uns über 
jede Antwort, die wir bekom- 
men. SVA.C.-Computerclub, 
bei Machner, Färberstr. 20, 
8941 Erkheim, © 08336/ 
7105 








C-116-Software gesucht, z. B. 
Textprogramm, Assembler 
oder mathe-Anwendungen. 
(Schule) Suche auch Zubehör, 
Speichererweiterung, Joy- 
stick, Floppy etc. Bernhard 
Stettiner Crachstr. 10, 4600 
Bortmund 50. 


Suche Software für CPC 6128 
auf Disk (3” bzw 514”) oder Cas- 
sette. Richtung: Amateur-Funk, 
z. B. Logbuch, Kontest, Oscar 
10, Entf.-Berechnung. Rudolf 
Berg, Eschweg 10, 4458 Neu- 
enhaus. 


Verschiedenes | 





Handbuch für Datenfernüher- 
tragung mitvielen Tricks gegen 
Unkosten. Info 80 Pf. |. Leon- 
hardt, Auf der Reide 39, 4009 
Düsseldorf. 


Programme 





1718 LOCATE S5,21:PEN 2:PRINT"Fress Fire® | PATE 15,21: PRINT"4":LOCATE 8,21: PRINT"S": 
1722 RESTORE 1758 LOCATE 6,16: PRINT"&":LOCATE 6,10: PRINT"7 
1732 WHILE JOY(B)<>1AsWEND "SLOCATE 8,5: PRINT"B" 
1740 READ a:lIF a=-1 THEN 1788 ELSE SOUND 2250 LOCATE &,1:PEN 12:PRINT"STARFIGHT" 
i,ABS(a#2) „38,15,2:50UND 2,3#4,28,15,2, 2078 CALL 535068 
1:SOUND 4,3,308,15,2 2u80 GOTO 1470 
1758 DATA 40,71,47,60,40,47,45,53,53,63, zu70 " -—— Sprite Grafic --—- 
47,60,40,47,60,71,47,60,48,47,45,53,53,&6 2108 " Raumer 1 
3,47,60,60,71,—1 2118 DATA 222 222 
17&£0 MODE 1 2128 DATA 25552 937 25552 
1778 LOCATE 15,1:PEN 2: PRINT"STARFIGHT" 21352 DATA 222 4444 222 
1788 LOCATE 18,3:PEN 1:PRINT CHR$1164) +" 2140 DATA 5 2444 3 
by" 2158 DATA 3 33 3 
179@ LOCATE 16,5:PEN 3:PRINT"A.M. Saft" 2160 DATA 333 353 
1882 LOCATE 1,12:PEN 2:PRINT"Weichen Man 2178 DATA 41 1 
 itor haben Sie ? Druecken Si 2188 " Raume 1 kleiner 
e bitte die entsprechende Taste." 2198 DATA 
4818 LOCATE 12,1&:PEN 1:PRINT"F - Farbmo 2208 Data 22 1 22 
nitar" 2210 DATA 22 111 >22 
1828 LOCATE 12,18:PRINT"G - Bruenmonitor 2220 DAR 33335 
u 2250 DATA 3 3 
1830 a$=INKEY$: IF a$="" THEN 1830 2240 ” Raumer 2 
1848 IF a$="f" OR a$="F" THEN GOTO 1878 2258 DATA 111111 
1852 IF a$="g" OR as="G" THEN G0TD 1900 2268 DATA 11222211 
1850 GOTO 1838 22798 DATA i 1122222211 1 | 
1870 ‘-- Farbm. — 2288 DATA 11 Allillıllı 11 
1888 INK 9,8:BORDER 2: INK 3,4: INK 15,2:1 2272 DATA 1141111111112111 
NE 14,1:2INK 13,42 INK 12,1B: INK 1,26: INK 2588 DATA 3333 3333 
2,18: INK 4,15: INK 6,12: INK 4,22: INK 5,8 2318 DATA 3533335 
1898 GOTO 188 7329 DATA 97.99 
17564 ° —— Gruenm. —- 2332 ° Raumer 2 kleiner 
1719 INK @,Z:BORDER i@: INK 3,10: INK 15,1 2349 DATA ı11 
42 INK 14,2:INE 13,17:1INK 12,24: INk 1, 26: 2358 BaTa ı 12221 1 
INK 2,182: INK 4,15: INK &,12:2 INK 4,22: INK 23542 DATA 111121211 
5,8 2370 DATA 33 35 
1920 G0T0 188 2388 DATA 37 9 
1739 ---—- Screen 2573 *‘ Raumer 3 
1742 MODE @ 2490 DATA 2444 
17580 DEG 2410 DATA 244444 
1768 CLS 2428 DATA 24444444 
1970 FOR t=B TO 15:INK t,2:SOUND 4,2000, 2450 DATA 4443444244 
20,15,2,8,t:NEXT 2440 DATA 55555555555555 
1784 FOR t=2C088 TO &FFFF STEP Sz:IF INTt 2458 DATA 55555555555555335 
RND*25)=3 THEN FOKE t,220 2468 DATA 555555555555 
1998 NEXT 2478 DATA 55555555 
2888 ORIGIN 9,B:MOVE 9,@:DRAW 639,0,4: DR 24880 " Raumer 5 kleiner 
AW 639,399: DRAW 0,399: DRAW 0,0 2490 DATA 444 
. 2010 FOR r=@ TO 36 STEP 12:FOR t=® To 18 2500 DATA 24444 
A STEP 2:0RIGIN 69,35B:MOVE 8,8:PLOT SIN 2318 DATA 5355355555 
tt#2) #r „LOS(t*2)*30,15:0RIGIN 588,350:MO 2328 DATA 55555555555 
VE @,B:PLOT SINt#2)3®r ‚„ECOStt#2)#30=2 NEXT: 2530 * Fadenkreuz 
NEXT 2548 DATA 333 
2020 ORIGIN 328,200: FOR t=@ TO Z4B: MOVE 2550 DATA 3 35 
2,8:PLOT SIN(tIK1SG, COS(EI#130,14:2 NEXT za Data 5 1 = 
2830 ORIEIN a,0 2570 DATA 3 111 3 
2840 PLOT 320,350,15:DRAW 320,340:PLOT 4 za8B DATA 5 1 5 
12,299: DRAK 420,330: PLOT 459,200:DRAW 46 2570 DATA 33 33 
B,2BG: PLOT 412,110: DRAW 420,129: FLOT 328 2&0B DATA 333 
‚70: DRAW 329,60: PLOT ?30,1129:DRAW 278,10 2618 " -———- MC — Speicher --- 
@:PLOT 172,208:DRAW 190,220: PLOT 234,270 2628 MEMORY 42000: RESTORE 2648 
:DRAW 22B, ErT) 2638 FOR t=9 TO 235:READ a:POKE IS@dd+t,a 
2@52 PEN 12:LOCATE 13,5:PRINT"1"sLOCATE NEXT 
15,1: PRINT"2":LOCATE 15,1&:PRINT"S"sLOC 2640 DATA 33,0,192,17,0,64,1,0,64,237,17 


62 Compute mib 86 





6,201,33,0,64,17,0,192,1,08,64,237,176,28 
1 

2&aB RETURN 

2a °” -——---——- ME - CODE 

2676 sprite=42818 

2688 RESTORE 2770:1i=8:k=-G:READ a 

26598 WHILE a<256 

2782 POKE sprite +i,a:ık=kta:i=eit1:READ a 
2718 IF i MOD B<>O GOTD 7758 

: 2728 IF a=k MÜD 256 GOTO 2748 
2738 PRINT "ERROR...":END 

2748 k=B:READ a 

: 2758 WEND 

'"27&B RETURN 
2778 DATA 253,229,221,229,42,42,179,237, 
152 

. 72788 DATA 91,46,177,25,203,124,32,27,215 
27998 DATA 203,44,32,235,203,27,235,353,34 

ZBOE DATA 199,0,193,237,82,22,0,48,3 
2918 DATA 15,172,147,79,184,87,530,289,37 
2828 DATA 213,24,39,221,225,253, 225,201, 
ı21 
2838 DATA 90,213,125,238,7,2053,37,2853,252 
2940 DATA 39,283,37,87,308,0,125,230, 241 

28549 DATA 249,111,223,37,203,28,68,77,19 

- 
2B6R DATA 205,37 ,2035,28,283,37,2083,28,15 
= 
2874 DATA 9,25, 229,42,40,179,237,75,68 
2868 DATA 44,1797,7,203,44,203,29,203,1464 
2878 DATA 44,283,29,6,0,203,44,40,57 
2700 DATA 28,293,29,36,32,8,128,149,85 

29710 DATA 72,96,104,71,24,15,193,195,8 

. 2928 DATA 221 ,225,233,225,201,283,29,62, 

137 
29378 DATA 80, 149,56, 242, 79,209 ,23,237,93 
2798 DATA 971,281,177,25,17,2,192,25, 216 
2950 DATA 49,43,17,88,1972,25,1977,721,16 
2968 DATA 225,175,237,71,48,174,62,8,6 
2972 DATA 128,498,74,19,19,17,19,19,3 

. 2788 DATA 28,254,148,32,203,19,26,214,14 

ı& 

2798 DATA 32,596,6,19,26,214,32,40,177 
3aRd DATA 244,16,252,69,177,227,17,17,25 
3 
sgia DATA 17,17,19,26,254,142,52,.74,171 


6 

3030 DATA 193,12@,254,0,48,8,19,26,148B: 

3g42 DATA 214,32,56,103,16,248,65,24,246 

3a50 DATA 2,24,217,19,26,214,32,56,78 

3042 DATA 70,730,15,2703,71,40,2,203,86 

3070 DATA 247,2053,87,42,2,283,231,230,21 

> - 
ZABU DATA 90,203,79,40,2,293,215,203,11° 
3a7Q DATA 95,49,2,283,199,7350,85,203,33 
3108 DATA 39,174,119,19,26,214,32,56,167 

. 311@ DATA 59,230,15,203,71,48,2,203,46 
3129 DATA 247,203,87,40,2,203,231,230,21 
3 

: 3130 DATA 98,293,79,40,2,283,215,203,11 

. 3140 DATA 95,40,2,203,199,258,85,174,4 

. 3158 DATA 119,62,248,164,79,35,62,7,8 


3020 DATA 19,24,214,32,56,117,221,229,14 





programme 


S516# DATA 164,177,103,16,166,19,265,214,1 


3178 DATA 32,49,250,225,1,0,9,97,61 
Z189 DATA 48,8,1,80,192,9,62,199,97 
3198 DATA 164,103,195,14,140,221,225,253 


32882 DATA 225,201 ,256,170 
32182 ° -———- Saveroutine —— 
3215 SPEED WRITE 1 

3220 SAVE"STARFIGHT" 

3230 END 

3248 "” —— Break —— 

325B SPEED KEY 28, 1:MODE 1 
3268 END 


CHETK Vi: PRUEFSUMMEN: 


19979- 1100: 17444 2210- 72770: 4408 


ZEILENNR.= SUMMEN 1110- 31729: 37578 223B- 224M: 4NB3 
18- 29: 21071 1130- 1140: 25108 22S30- 22408: 8215 
20- #0: 14217 1158- ilöd: 821 2278- 7280: 15008 
SsB- 64: 132589 1170- 1180: 15262 22SB- zZIma: 13986 
7e- 8b: 8735 1158- 1208: 5udA4 2330- 2320: 6778 
7B8- 188: 13171 1219- 1220: 34148 233B- 2340: 18315 


2350- 23548: 6576 
23578- 235808: 2824 
2378- FAaBme: 7382 
z2418- 2420: 7924 
za30- 2440: 13531 
24539- 2469: 15862 
2470- 2480: 21482 
2499- 2560: 4440 
2519- 2578: 10BBB 
2530- 2540: 11058 
2558- 2560: 3475 
2578- 2598: 3888 
2570- Zaßßr 3493 
Zai1iB- 2620: 24777 
zZES50- 2640: 64594 
Zasg- Zus 15645 
2670- 24689; 36005 
Zu70- 7700: 694465 
z7’ı0- 2720: 3B2Z28 
2739- 2740: 13463 
27359- 2768: 424 
777B- 2780: S7alG 
2778- Zub: 43343 
2B810- 2920: 36964 
ZE358- 28390: Sa1?’a 
2859- 2568: 55620 
287D- 288: 49568 
ZErR- ZI: AED 
Z910- 2928: SABEB 
293B- 2948: SOBBd 
295B- 2758: 45123 
ZIrR- 2909: 49255 
2998- Seal: 47950 
3u41A- 3A70: 73748 
3E38- SA4B: 49293 
3asd- 3B40: 44508 
3878- 3a8d: 51551 
ZAr7B- Ziuß: 50587 
S119- 3129: SMi4E 
313B- 3130: 57171 
3159- Siäß: SiS: 
S17B- 3186: 346392 
S179- 3200: 38577 
32iA- 3215: Zezil 


t18- 126: 18137 
159- 140: 54874 
ı159- 340: 1198 
178- 180: 37533 
199- 288: 746591 
zı0- 770: 75a 
230- 240: 73749 
250- Zö: Arash 
278- 280: 42901 
z2m- 308: 71923 
si8- 326: 48623 
3350- 344: 42030 
35B- 5648: 1271 
570- 384:128141 
37B- 400: 55515 
418- 420: 197461 
4580- 440: 45562 
4509- 440: 329604 
470- 480: 54586 
490- Sad: 71778 
Ssıa- Szßı 17457 
S3g- SAD: Höorda 
Ss39- öl: 70724 
578- 588: 11329 
sra- Ham: 48767 
&ıB- #20: 2147 
az ba: 62899 
56- 440: 71848 
a7ra- 608: 39989 
 59- 70: 64 
Fıa- 7a: Gub32 
T3B- 748: 780353 
7S0a- 7&8: 79070 
FrTE- 7938: FEISS 
790- SEI: 59328 
B1g- 828: 39322 
B5B- BAG: 59403 
S5R- Bd: 45024 
S’B- E38: 548358 
B7a- 900: 33545 
Tid- #20: 1354753 
930- Pa0: 77&EhB 
ab Faß: 16343 
978- BB: 4253 
Iru- 1800: SEB4Z 
1B1B- 1820: 49887 
1B3B- IGs: 2841& 
1858- 1040: 25224 
1B72- 1494:. 7786 


1238- 1240: +088& 
1258- 1268: 14492 
1270- 1208: 70444 
1292- 1300: 43728 
1310- 1328: 87827 
1334- 1348: 37579 
1358- 1348: 53051 
1370- 1350: 49287 
1399- 1400: 8371 
1418- 1420: 37282 
1438- 1440: 47941 
1450- 1460: 12271 
147B- 1480: 16633 
1499- 1509: 41587 
1519- 1520: 31438 
i538- 1548: 89156 
1559- 1568: 76312 
1578- 1588: 33598 
1570- 1608: #705 
1618- 1628: 597204 
1630- 1648: 355198 
1558- 1548: 24541 
1670- I60B: 41454 
1699- 1700: 39976 
1719- 1728: 23959 
1730- 1740: 48515 
1750- 1760: 616553 
1770- 1798: 42674 
1770- 18983 52451 
181@- 19826: 60247 
1830- 1840: Sad14 
1958- 1B4B: 32584 
1870- 1880: 17628 
1878- 1700: 9743 
1919- 1970: 197648 
1930- 1940: 11795 
1958- 1960: 283 
1970- 1950: 93338 
199- 2EAB: 45748 
ZR1a- 2070: 67567 
2BSB- 2E4G: 20712 
2BSR- 7060: 79665 
2A7B- 2BBG: 3803 
2090- 21A0: 24222 
zı1d- 2128: 11938 Sr20- 3256: SIYa 
7159- z140: 10585 FZag- 3758: 11284 
2159- ?160: 66455 3248- b 152 
2170- 2180: 165372 
Z1970- 2200: 2272 


BESAMTCHECKSUMME: 9871 


Korrektur zum Programm 
„Disk-Help“ aus Heft 3/85 


Bei dem Programm „Disk-Help“ hat der Fehlerteufe! zuge- 
schlagen. Bitte geben Sie folgende Korrektur ein und Ihr Pro- 
gramm ist in allen Bereichen funktionsfähig. 


110 LOCATE 2,2:PRINT" 1 = 
:LOCATE -Z2,2:FRINT" 2 = 


Loeschen " 
Umbenennen " 





A/86 Gompute mit 8 


© speziell gesuchte Software kann direkt beim Hersteller bestellt werden” nn 


©: 12 Seiten Kleinanzeigen als Fundgrube 





